/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

  1. REBOL [
  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. change-dir %../
  9. ~~~start-file~~~ "not-compile"
  10. ===start-group=== "not compile and run tests"
  11. --test-- "not-comp-run-1 #issue 104"
  12. --compile-and-run-this {
  13. dummy: func [return: [integer!]] [0]
  14. print "starting"
  15. prin-hex as-integer not as-logic dummy
  16. print ""
  17. print "finished"
  18. }
  19. --assert none <> find qt/output"finished"
  20. ===end-group===
  21. ~~~end-file~~~