TEST: Command-Line Interface tests

related to:
Oldes/Rebol-issues#1890
Oldes/Rebol-issues#2140
Oldes/Rebol-issues#2227
Oldes/Rebol-issues#2228
Oldes/Rebol-issues#2467

src/tests/run-tests.r3

@@ -17,6 +17,7 @@ dt [ ;- delta time
 		%units/bbcode-test.r3
 		%units/bincode-test.r3
 		%units/bitset-test.r3
+		%units/call-test.r3
 		%units/codecs-test.r3
 		%units/codecs-test-pdf.r3
 		%units/compare-test.r3

src/tests/units/call-test.r3

@@ -0,0 +1,63 @@
+Rebol [
+	Title:   "Rebol3 CALL test script"
+	Author:  "Oldes"
+	File: 	 %call-test.r3
+	Tabs:	 4
+	Needs:   [%../quick-test-module.r3]
+]
+
+~~~start-file~~~ "CALL"
+
+out-buffer: copy ""
+
+rebol-cmd: func[cmd][
+	clear out-buffer
+	insert cmd join to-local-file system/options/boot #" "
+	call/shell/wait/output cmd out-buffer
+] 
+
+===start-group=== "Command-Line Interface"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2228
+	--test-- "--do"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2467
+		--assert 0 = rebol-cmd {--do "print 1 + 2"}
+		--assert out-buffer = "3^/"
+	--test-- "script args 1"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1890
+		--assert 0 = rebol-cmd {units/files/print-args.r3 a}
+		--assert out-buffer = {["a"]^/["a"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 a b}
+		--assert out-buffer = {["a" "b"]^/["a" "b"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 a "b c"}
+		--assert out-buffer = {["a" "b c"]^/["a" "b c"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 a 'b " c'}
+		--assert out-buffer = {["a" {b " c}]^/["a" {b " c}]^/}
+	--test-- "script args 2"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2227
+		--assert 0 = rebol-cmd {-v}
+		--assert not none? find/match out-buffer {Rebol }
+		--assert 0 = rebol-cmd {units/files/print-args.r3 -v}
+		--assert out-buffer = {["-v"]^/["-v"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 -x}
+		--assert out-buffer = {["-x"]^/["-x"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 -- -x}
+		--assert out-buffer = {["--" "-x"]^/["--" "-x"]^/}
+		--assert 0 = rebol-cmd {units/files/print-args.r3 -v -- -x}
+		--assert out-buffer = {["-v" "--" "-x"]^/["-v" "--" "-x"]^/}
+		--assert 0 = rebol-cmd {--args "a b" units/files/print-args.r3 -v}
+		--assert out-buffer = {["a b" "-v"]^/["a b"]^/}
+		--assert 0 = rebol-cmd {--script units/files/print-args.r3 --args "a b" -- -v}
+		--assert out-buffer = {["a b" "-v"]^/["a b"]^/}
+	--test-- "script args 3"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2140
+		cmd: "units/files/print-args.r3"
+		repeat i 1000 [append append cmd #" " i]
+		--assert 0 = rebol-cmd cmd
+		--assert #{F41512F56B85D5805C62E6587C26A969DC3D41AE} = checksum out-buffer 'sha1
+		if find [Macintosh Linux] system/platform [
+			--assert 0 = rebol-cmd {--do "print system/options/args quit" `seq 1 1000`}
+			--assert #{17900469C3C78A614B60FEE4E3851EF6BAF9D876} =  checksum out-buffer 'sha1
+		]
+===end-group===
+
+~~~end-file~~~

src/tests/units/files/print-args.r3

@@ -0,0 +1,3 @@
+Rebol [title: "Script which prints args"] 
+probe system/options/args
+probe system/script/args