/red-system/tests/source/compiler/not-test.r
R | 29 lines | 21 code | 8 blank | 0 comment | 0 complexity | c6507413d02cc2227fba15a2cb276b14 MD5 | raw file
1REBOL [ 2 Title: "Red/System infix functions test script" 3 Author: "Nenad Rakocevic & Peter W A Wood" 4 File: %not-test.r 5 Rights: "Copyright (C) 2011 Nenad Rakocevic. All rights reserved." 6 License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt" 7] 8 9change-dir %../ 10 11~~~start-file~~~ "not-compile" 12 13===start-group=== "not compile and run tests" 14 15 --test-- "not-comp-run-1 #issue 104" 16 --compile-and-run-this { 17 dummy: func [return: [integer!]] [0] 18 print "starting" 19 prin-hex as-integer not as-logic dummy 20 print "" 21 print "finished" 22 } 23 --assert none <> find qt/output"finished" 24 25===end-group=== 26 27~~~end-file~~~ 28 29