Merge branch 'master' of jsoftware.com:jsource

Author: moon-chilled

script/testga.ijs

@@ -6,7 +6,6 @@ os=: (('Linux';'Darwin') i. <UNAME) pick ;:'linux darwin win'
 testres=: 'test',os,'.txt'
 
 0!:0 <testpath,'tsu.ijs'
-echo 'cpu ',(9!:56'cpu'),' cores ',":9!:56'cores'
 GITHUBCI=: 1       NB. testing on github
 ECHOFILENAME=: 1   NB. echo file name
 
@@ -31,4 +30,4 @@ if. (os -: 'win') *. 1 e. 'avx/' E. 9!:14'' do.
 end.
 )
 
-exit ''
+exit *@#RES

script/testga.sh

@@ -7,6 +7,8 @@
 # current macOS github builder only supports avx
 # cpu is Xeon E5-1650 v2 (from 2013)
 
+set -e
+
 if [ $1 == "linux" ]; then
   ext="so"
 elif [ "$1" == "darwin" ]; then

test/g3x12.ijs

@@ -21,6 +21,7 @@ x=. I. 26 > n=. ((97+i.26){a.) i. t=. ,y
 (ToLower -: 0&(3!:12)) 0.5 + i. 3 4
 (ToLower -: 0&(3!:12)) 1j1 + i. 3 4
 (ToLower -: 0&(3!:12)) x: i. 3 4
+(ToLower -: 0&(3!:12)) 1r2 3r4
 (ToLower -: 0&(3!:12)) <a.
 (ToLower -: 0&(3!:12)) <123 456$a.
 (ToLower -: 0&(3!:12)) 3 4$<a.
@@ -38,17 +39,21 @@ x=. I. 26 > n=. ((97+i.26){a.) i. t=. ,y
 (ToUpper -: 1&(3!:12)) 0.5 + i. 3 4
 (ToUpper -: 1&(3!:12)) 1j1 + i. 3 4
 (ToUpper -: 1&(3!:12)) x: i. 3 4
+(ToUpper -: 1&(3!:12)) 1r2 3r4
 (ToUpper -: 1&(3!:12)) <a.
 (ToUpper -: 1&(3!:12)) <123 456$a.
 (ToUpper -: 1&(3!:12)) 3 4$<a.
 (ToUpper -: 1&(3!:12)) 3 4$<123 456$a.
 (ToUpper -: 1&(3!:12))&> 3 4$<a.
 (ToUpper -: 1&(3!:12))&> 3 4$<123 456$a.
 
+(] -: 0&(3!:12)) $. i. 3 4
+(] -: 1&(3!:12)) $. i. 3 4
+'nonce error' -: ToLower etx $. i. 3 4
+'nonce error' -: ToUpper etx $. i. 3 4
+
 'domain error' -: _1&(3!:12) etx ''
 'domain error' -: 2&(3!:12) etx ''
-'nonce error' -: 0&(3!:12) etx $. i. 3 4
-'nonce error' -: 1&(3!:12) etx $. i. 3 4
 
 4!:55 ;:'ToLower ToUpper'
 

test/tsu.ijs

@@ -426,4 +426,4 @@ see: tsu_notes, tsu_usage, tsu_pacman, and tsu_jd
 )
 
 echo 9!:14''
-
+echo 'cpu ',(9!:56'cpu'),' cores ',":9!:56'cores'