shrink test suite on raspberry

Author: bilam

test/g131.ijs

@@ -76,14 +76,16 @@ assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:_50000+?10 10$
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?7 7$10000
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?35 35$10000
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?71 71$10000
+if. -.QKTEST do.
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?237 237$10000
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?399 399$10000
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?400 400$10000
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?413 413$10000
 assert. (b-:minv a) *. 1e_5>>./|,(id a)-a X b=:%.a=:j./?2 8 8$1300
 assert. (1e_1 > >./ | , b-minv a) *. 1e_1>>./|,(id a)-a X b=:%.a=:0.01*_4000+?237 237$10000
+end.
 test =: 3 : '(1e_1 > >./ | , b-minv y) *. 1e_1>>./|,(id y)-y X b=:%.a=:y'
-assert. 13!:8@8^:-.@test@> (0.01 * _4000 + 100000 ?@$~ ,~)&.> 35 + i. 64
+assert. 13!:8@8^:-.@test@> (0.01 * _4000 + 100000 ?@$~ ,~)&.> 35 + i. QKTEST{64 32
 
 assert. (b-:minv a) *. (1=+/a*b) *. (+/a*+a)-:%+/b*+b =:%.a=:1=?36$2
 assert. (b-:minv a) *. (1=+/a*b) *. (+/a*+a)-:%+/b*+b =:%.a=:_10+?17$20

test/gcip.ijs

@@ -33,8 +33,8 @@ b=: 20 64 ?@$ 0
   assert.  (a +/@(*"1 _) b) -: a X b
 end. 1 }} ''
 
-a=: 1024 1024 ?@$ 0
-b=: 1024 1024 ?@$ 0
+a=: (-:^:QKTEST 1024 1024) ?@$ 0
+b=: (-:^:QKTEST 1024 1024) ?@$ 0
 c=: a +/@(*"1 _)t.'' b    NB.test against strawman approach
 d=: a {{ (<x X y) , (x XT y) , (<x X y) }}t.'' b NB. create user task while queue has internal tasks, and vice versa
 e=: a (XT , XT , XT , XT) b

test/gtdot.ijs

@@ -169,7 +169,7 @@ wthr N
 N = 1 T.''
 wthr N
 
-allowlongjobs =. 0 NB. some of these too long on Windows
+allowlongjobs =. -.QKTEST+.IFWIN NB. some of these too long on Windows
 
 1 1:`f1@.allowlongjobs 45          NB. queued job stress test
 

test/gtdot2.ijs

@@ -13,7 +13,7 @@ TASK=: <: 1 { 8 T. ''  NB. max # worker threads
 1: 0&T."1^:(0 < #) ''$~ (0 >. TASK-1 T. ''),0
 
 STRIDE=: 3000                 NB. stride between tasks
-NX=: 2000
+NX=: QKTEST{2000 500
 
 18!:55 :: 1: "0 -.&' '&.> <"1 'loc',~"1 'f',"1 ": ,. i.TASK*STRIDE   NB. clear all locales