SWAPを実装

2016-09-03 11:46:11 +09:00
parent 69a4033250
commit 6505e41fd2
6 changed files with 155 additions and 0 deletions
--- a/SMILEBASIC/TEST.txt
+++ b/SMILEBASIC/TEST.txt
@@ -1,3 +1,23 @@
+'SWAP TEST
+SWAPTEST
+DEF SWAPTEST
+ VAR A=1
+ VAR B=2
+ SWAP A,B
+ ASSERT__ B==1, "SWAP"
+ ASSERT__ A==2, "SWAP"
+ VAR A$="1
+ VAR B$="2
+ SWAP A$,B$
+ ASSERT__ B$=="1", "SWAP"
+ ASSERT__ A$=="2", "SWAP"
+ VAR A%=1
+ VAR B#=2.34567
+ SWAP A%,B#
+ ASSERT__ B#==1, "SWAP"
+ ASSERT__ A%==2, "SWAP"
+END
+
 'REPEAT TEST
 ?"REPEAT(1)"
 VAR REPEATTEST