livecode/tests/lcs/core/debugging/log.livecodescript at develop · livecode/livecode

This repository was archived by the owner on Aug 31, 2021. It is now read-only.

56 lines (48 loc) · 1.69 KB

﻿script "log"
Copyright (C) 2019 LiveCode Ltd.
This file is part of LiveCode.
LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.
LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with LiveCode.  If not see <http://www.gnu.org/licenses/>.  */
   local tStackToRun
   put the effective filename of me into tStackToRun
   set the itemdelimiter to slash
   if the environment is "server" then
      put "_log.lc" into item -1 of tStackToRun
      put "_log.livecodescript" into item -1 of tStackToRun
   local tOptions
   if the environment contains "command line" then
      put "-ui" into tOptions
   set the itemdelimiter to comma
   local tArgs, tResult, tUUID
   put uuid() into tUUID
   repeat for each item tLogMessage in "logPublic,logPrivate"
      put tLogMessage && tUUID into tArgs
      TestRunStack tOptions, tStackToRun, tArgs
      if the result is not empty then
         TestDiagnostic the result
         TestDiagnostic it
      end if
      TestAssert "log message" && tLogMessage, tUUID is in it
   end repeat
   put quote & quote && tUUID into tArgs
   TestRunStack tOptions, tStackToRun, tArgs
   if the result is not empty then
      TestDiagnostic the result
      TestDiagnostic it
   TestAssert "log message" && tLogMessage, tUUID is not in it
end TestLog

Navigation Menu

Uh oh!

Uh oh!

FilesExpand file tree

log.livecodescript

Latest commit

History

log.livecodescript

File metadata and controls