QKTEST

Author: bilam

test/g420t.ijs

@@ -68,19 +68,19 @@ y=: timer 'f ',"1 ":,. x=: 2^8+i.12
 THRESHOLD +. threshold < y rsq y (] +/ .* %.) x^/0 1
 
 f=: 3 : ';/(y,4 3)$''a'''
-y=: timer 'f ',"1 ":,. x=: 2^8+i.12
+y=: timer 'f ',"1 ":,. x=: 2^8+i.QKTEST{12 8
 THRESHOLD +. threshold < y rsq y (] +/ .* %.) x^/0 1
 
 f=: 3 : ';/(y,4 3)$u:''a'''
-y=: timer 'f ',"1 ":,. x=: 2^8+i.12
+y=: timer 'f ',"1 ":,. x=: 2^8+i.QKTEST{12 8
 THRESHOLD +. threshold < y rsq y (] +/ .* %.) x^/0 1
 
 f=: 3 : ';/(y,4 3)$10&u:''a'''
-y=: timer 'f ',"1 ":,. x=: 2^8+i.12
+y=: timer 'f ',"1 ":,. x=: 2^8+i.QKTEST{12 8
 THRESHOLD +. threshold < y rsq y (] +/ .* %.) x^/0 1
 
 f=: 3 : ';/(y,4 3)$s:@<"0 ''a'''
-y=: timer 'f ',"1 ":,. x=: 2^8+i.12
+y=: timer 'f ',"1 ":,. x=: 2^8+i.QKTEST{12 8
 THRESHOLD +. threshold < y rsq y (] +/ .* %.) x^/0 1
 
 

test/g421i.ijs

@@ -4,7 +4,7 @@ NB.  x f//. y special code for + +. *. >. <. = ~: -----------------------
 randuni''
 bigval =: imax-1000
 test=: 1 : 0
- n=. 1000
+ n=. QKTEST{1000 100
  v=: 3 : ((5!:5 <'u'),'/y')
  yy=: y {~ n ?@$ #y
  assert. (xx=:      ? n   $2    ) (u//. -: v/.) yy

test/g430.ijs

@@ -562,8 +562,8 @@ f=: i.@:>:@:$
 (5 +`%\1 2 3) -: 5 +`%\1 2 3x
 
 NB. Verify that special forms are detected
-a =: 1e4 $ 'abc'
-THRESHOLD +. (10 (6!:2) '40 ]@<\ a') > 1.2 * 10 (6!:2) '40 <\ a'
+a =: (QKTEST{1e4 1e3) $ 'abc'
+THRESHOLD +. ((1) (6!:2) '40 ]@<\ a') > 1.2 * (1) (6!:2) '40 <\ a'
 (40 <\ a) -: 40 ]@<\ a
 
 (7!:2 '; 40 <\ a') > 1.2 * 7!:2 '40 ;@:(<\) a'  NB. smaller because boxes contain (cloned) virtual blocks
@@ -572,7 +572,7 @@ THRESHOLD +. (10 (6!:2) '40 ]@<\ a') > 1.2 * 10 (6!:2) '40 <\ a'
 (7!:2 '; 40 <\ a') > 1.2 * 7!:2 '40 ]@;@:(<\) a'  NB. smaller because boxes contain (cloned) virtual blocks
 (; 40 <\ a) -: 40 ]@;@:(<\) a
 
-THRESHOLD +. ((10) 6!:2 '_3 ,&]/\ a') > 1.5 * (10) 6!:2 '_2 ,&]/\ a'  NB. special code for dyad
+THRESHOLD +. ((1) 6!:2 '_3 ,&]/\ a') > 1.5 * (1) 6!:2 '_2 ,&]/\ a'  NB. special code for dyad
 
 a =: i. 1000 1000
 (7!:2 '; 2 (<@{.\) a') > 1.5 * 7!:2 '2 ;@:(<@{.\) a'

test/g431a.ijs

@@ -88,9 +88,9 @@ k (<\.   -: < bsd) ,a   [ k=:_4+?11
 k (]\.   -: ] bsd) a    [ k=:_4+?11
 
 NB. Verify special code for 2 irs/\ y
-THRESHOLD +. (6!:2 '2 +/\ a') < 0.4 *  (6!:2 '2 +"+/\ a') [ a =: i. 100000
-THRESHOLD +. (6!:2 '2 ~:/\ a') < 0.4 *  (6!:2 '2 ~:"+/\ a') [ a =: 100000 $ 'abcdefgh'
-THRESHOLD +. (6!:2 '2 */\ a') < 0.4 *  (6!:2 '2 *"+/\ a') [ a =: i. 100000
+THRESHOLD +. (6!:2 '2 +/\ a') < 0.4 *  (6!:2 '2 +"+/\ a') [ a =: i. (QKTEST{100000 1000)
+THRESHOLD +. (6!:2 '2 ~:/\ a') < 0.4 *  (6!:2 '2 ~:"+/\ a') [ a =: (QKTEST{100000 1000) $ 'abcdefgh'
+THRESHOLD +. (6!:2 '2 */\ a') < 0.4 *  (6!:2 '2 *"+/\ a') [ a =: i. (QKTEST{100000 1000)
 
 
 NB. x f/\. y ------------------------------------------------------------
@@ -108,8 +108,8 @@ testa=: 1 : 0
  1
 )
 
-<. testa&> t , < sdot0{~ 100 ?@$ #sdot0
->. testa&> t , < sdot0{~ 100 ?@$ #sdot0
+<. testa&> t , < sdot0{~ (QKTEST{100 50) ?@$ #sdot0
+>. testa&> t , < sdot0{~ (QKTEST{100 50) ?@$ #sdot0
 +  testa&> t , < j./ 2 100 ?@$ 1000
 *  testa&> t , < j./ 2 100 ?@$ 1000
 +. testa&> 0 1; 100 ?@$ 1000

test/gebar.ijs

@@ -106,9 +106,9 @@ ystg =. (xstg,xstg) (, randpos +/ i.x)} ystg
 assert. xstg (ebar -: E.) ystg [ xstgsav =: xstg [ ystgsav =: ystg
 1
 )
-(30 + 1000 ?@$ 10) f 5000 + 1000 ?@$ 100
+(30 + (QKTEST{1000 100) ?@$ 10) f 5000 + (QKTEST{1000 100) ?@$ 100
 
-2 f 64 + 2000 ?@$ 10
+2 f 64 + (QKTEST{2000 200) ?@$ 10
 
 NB. literal2
 adot3=: /:~ (#adot1){.~.(u:'ABCabc'),adot1,u: (#adot1)?65536

test/tsu.ijs

@@ -57,14 +57,36 @@ blacklist=: blacklist, IFIOS#(<testpath),each <'gipht.ijs'  NB. crash if include
 blacklist=: blacklist, (IFRASPI+.'OpenBSD'-:UNAME)#(<testpath),each <'g128x14.ijs'  NB. raspberry crash; OpenBSD fail
 
 NB. too slow
-blacklist=: blacklist, (0~:9!:56'MEMAUDIT')#(<testpath),each 'gco1.ijs';'gco1u.ijs';'gco1w.ijs';'gibs';'gstack.ijs'
+blacklist=: blacklist, (0~:9!:56'MEMAUDIT')#(<testpath),each 'g600ip.ijs';'gco1.ijs';'gco1u.ijs';'gco1w.ijs';'gibs.ijs';'gss.ijs';'gstack.ijs'
 NB. crash
-blacklist=: blacklist, (0~:9!:56'MEMAUDIT')#(<testpath),each 'g0.ijs';'g128x19.ijs';'g128x5.ijs';'g320.ijs';'g320ip.ijs';'g421.ijs';'g422os.ijs';'g430a2.ijs';'g600.ijs';'g621.ijs';'g631.ijs';'gibs.ijs';'gipht.ijs';'gmean.ijs';'gnan.ijs';'gqco.ijs';'g601.ijs'
+blacklist=: blacklist, (0~:9!:56'MEMAUDIT')#(<testpath),each  <@(,&'.ijs');._2 [ 0 : 0
+g0
+g128x19
+g128x5
+g220t
+g320
+g320ip
+g321
+g322
+g421
+g421c
+g421d
+g422os
+g430a2
+g600
+g601
+g621
+g631
+gipht
+gmean
+gnan
+gqco
+)
 
 blacklist=: ~.blacklist
 
 ddall    =: testfiles 'g'
-3 : 0'' [ 'gsp420'          NB. skip until
+3 : 0'' [ 'gt'          NB. skip until
 if. #y do.
   y=. '/',y,'.ijs'
   if. _1~: i=. {.!._1 I. (1 e. y&E.)&> ddall do. ddall=: i}.ddall end.