/red-system/tests/source/compiler/not-test.r
http://github.com/dockimbel/Red · R · 29 lines · 21 code · 8 blank · 0 comment · 0 complexity · c6507413d02cc2227fba15a2cb276b14 MD5 · raw file
- REBOL [
- Title: "Red/System infix functions test script"
- Author: "Nenad Rakocevic & Peter W A Wood"
- File: %not-test.r
- Rights: "Copyright (C) 2011 Nenad Rakocevic. All rights reserved."
- License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt"
- ]
- change-dir %../
- ~~~start-file~~~ "not-compile"
- ===start-group=== "not compile and run tests"
- --test-- "not-comp-run-1 #issue 104"
- --compile-and-run-this {
- dummy: func [return: [integer!]] [0]
- print "starting"
- prin-hex as-integer not as-logic dummy
- print ""
- print "finished"
- }
- --assert none <> find qt/output"finished"
- ===end-group===
-
- ~~~end-file~~~