Add a testing suite for CMD based on CMD scripts.

[reactos.git] / rostests / win32 / cmd / script_testsuite / tests / set.cmd

diff --git a/rostests/win32/cmd/script_testsuite/tests/set.cmd b/rostests/win32/cmd/script_testsuite/tests/set.cmd
new file mode 100644 (file)
index 0000000..4e292bb
--- /dev/null
+++ b/rostests/win32/cmd/script_testsuite/tests/set.cmd
@@ -0,0 +1,104 @@
+::
+:: PROJECT:     ReactOS CMD Testing Suite
+:: LICENSE:     GPL v2 or any later version
+:: FILE:        tests/set.cmd
+:: PURPOSE:     Tests for the "set" command
+:: COPYRIGHT:   Copyright 2005 Royce Mitchell III
+::              Copyright 2008 Colin Finck <mail@colinfinck.de>
+::
+
+:: Test the /A parameter
+call :_test "set /a a=1"
+call :_testvar %a% a 1
+
+call :_test "set /a b=a"
+call :_testvar %b% b 1
+
+call :_test "set /a a=!5"
+call :_testvar %a% a 0
+
+call :_test "set /a a=!a"
+call :_testvar %a% a 1
+
+call :_test "set /a a=~5"
+call :_testvar %a% a -6
+
+call :_test "set /a a=5,a=-a"
+call :_testvar %a% a -5
+
+call :_test "set /a a=5*7"
+call :_testvar %a% a 35
+
+call :_test "set /a a=2000/10"
+call :_testvar %a% a 200
+
+call :_test "set /a a=42%%%%9"
+call :_testvar %a% a 6
+
+call :_test "set /a a=5%%2"
+call :_testvar %a% a 5
+
+call :_test "set /a a=42%13"
+call :_testvar %a% a 423
+
+call :_test "set /a a=7+9"
+call :_testvar %a% a 16
+
+call :_test "set /a a=9-7"
+call :_testvar %a% a 2
+
+set /a a=9^<^<2
+call :_testvar %a% a 36
+
+set /a a=36^>^>2
+call :_testvar %a% a 9
+
+set /a a=42^&9
+call :_testvar %a% a 8
+
+set /a a=32^9
+call :_testvar %a% a 329
+
+set /a a=32^^9
+call :_testvar %a% a 41
+
+set /a a=10^|22
+call :_testvar %a% a 30
+
+call :_test "set /a a=2,a*=3"
+call :_testvar %a% a 6
+
+call :_test "set /a a=11,a/=2"
+call :_testvar %a% a 5
+
+call :_test "set /a a=42,a%%%%=9"
+call :_testvar %a% a 6
+
+call :_test "set /a a=7,a+=9"
+call :_testvar %a% a 16
+
+call :_test "set /a a=9,a-=7"
+call :_testvar %a% a 2
+
+set /a a=42,a^&=9
+call :_testvar %a% a 8
+
+set /a a=32,a^^=9
+call :_testvar %a% a 41
+
+set /a a=10,a^|=22
+call :_testvar %a% a 30
+
+set /a a=9,a^<^<=2
+call :_testvar %a% a 36
+
+set /a a=36,a^>^>=2
+call :_testvar %a% a 9
+
+call :_test "set /a a=1,2"
+call :_testvar %a% a 1
+
+call :_test "set /a a=(a=1,a+2)"
+call :_testvar %a% a 3
+
+goto :EOF