/red-system/tests/source/compiler/not-test.r

 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