Fix tests and remove empty test files

Author: juntuu

test/CMakeLists.txt

@@ -305,9 +305,7 @@ set(hare_test_cases #fast
         gpi       # 0.150 seconds
         gpick     # 0.170 seconds
         gpoly     # 0.240 seconds
-        gq        # 0.300 seconds
         gq101     # 0.490 seconds
-        gq132     # 0.160 seconds
         gq201     # 0.230 seconds
         gqco      # 2.550 seconds
         gqnonrat  # 0.240 seconds
@@ -372,7 +370,6 @@ set(hare_test_cases #fast
         gspr      # 0.160 seconds
         gspx      # 0.210 seconds
         gstack    # 0.190 seconds, Exception: SegFault, Only on Windows because of reduced stack size
-        gt        # 0.170 seconds
         gthrow    # 0.160 seconds
         gtrain    # 0.170 seconds
         gtry      # 0.160 seconds
@@ -381,11 +378,6 @@ set(hare_test_cases #fast
         gunderai  # 0.760 seconds
         gwhile    # 0.160 seconds
         gx        # 0.150 seconds
-        gx132     # 1.260 seconds
-        gxco      # 0.660 seconds
-        gxco1     # 0.700 seconds
-        gxco2     # 0.260 seconds
-        gxinf     # 0.160 seconds
         g18x
         g420
         )

test/g100.ijs

@@ -65,10 +65,6 @@ NB. x+y -----------------------------------------------------------------
 (IF64{8 4) = type _2e15+_3e15
 (IF64{8 4) = type 2147483647+1
 
-x=: - y=: 1+i.100
-(x + <._1+2^IF64{31 63x) -: x + <._1+2^IF64{31 63
-(y + <.  -2^IF64{31 63x) -: y + <.  -2^IF64{31 63
-
 ( 2e8*>:i.20) -: +/\20$ 2e8
 (_2e8*>:i.20) -: +/\20$_2e8
 

test/g100i.ijs

@@ -100,11 +100,6 @@ plus=: 4 : 'x+y'
 
 NB. +/ X ----------------------------------------------------------------
 
-(+/   -: +/  @:x:) x=:_1e5+?2 7 5 23$2e5
-(+/"1 -: +/"1@:x:) x
-(+/"2 -: +/"2@:x:) x
-(+/"3 -: +/"3@:x:) x
-
 'domain error' -: +/   etx 3 4$'abc'
 'domain error' -: +/"1 etx 3 4$'abc'
 'domain error' -: +/   etx ;:'modus operandi'

test/g121.ijs

@@ -228,8 +228,8 @@ f=: 4 : 0
  1
 )
 
-s=: 1 0 1 1 0; 3 1 4 5 0; 3 1 4 5 0 0.2; 3 1 4 5 0j2; 3 4 5 5 0x; '3145'
-t=: 0 ; 'abc'; 0 3 4; 0 3.4; 0 3j4; 0 3 4x; <0 3;4
+s=: 1 0 1 1 0; 3 1 4 5 0; 3 1 4 5 0 0.2; 3 1 4 5 0j2; 3 4 5 5 0; '3145'
+t=: 0 ; 'abc'; 0 3 4; 0 3.4; 0 3j4; 0 3 4; <0 3;4
 s f&>/ t
 
 NB. obsolete 'length error' -: -.&0 1 2     etx i.5 2

test/g122a.ijs

@@ -19,8 +19,6 @@ f=: 4 : 0
 (<     100?@$100) f&> (100+i.4) ,&.>/ '';<"0 i.8
 (<     100?@$0  ) f&> (100+i.4) ,&.>/ '';<"0 i.8
 (<j./2 100?@$0  ) f&> (100+i.4) ,&.>/ '';<"0 i.8
-(<  x: 100?@$100) f&> (100+i.4) ,&.>/ '';<"0 i.8
-(<  x: 100?@$0  ) f&> (100+i.4) ,&.>/ '';<"0 i.8
 (<":&.>100?@$100) f&> (100+i.4) ,&.>/ '';<"0 i.8
 1 = -:&$.~ i. 2 3
 0 = -.@-:&$.~ i. 2 3

test/g128x5.ijs

@@ -63,8 +63,8 @@ NB. [x] 128!:8 y   hashing -----------------------------------------------------
 ('') -: $ (128!:8) i. 10
 ('') -: $ (128!:8) i: 2.2j10
 ('') -: $ (128!:8) ('a';5;7.8) , <"1 i. 3 4 5
-('') -: $ (128!:8) i. 22x
-('') -: $ (128!:8) 5 %~ i. 22x
+('') -: $ (128!:8) i. 22
+('') -: $ (128!:8) 5 %~ i. 22
 
 100 ([ (> *. 0 <: ]) (128!:8)) 0
 100 ([ (> *. 0 <: ]) (128!:8)) 1
@@ -80,8 +80,8 @@ NB. [x] 128!:8 y   hashing -----------------------------------------------------
 100 ([ (> *. 0 <: ]) (128!:8)) i. 10
 100 ([ (> *. 0 <: ]) (128!:8)) i: 2.2j10
 100 ([ (> *. 0 <: ]) (128!:8)) ('a';5;7.8) , <"1 i. 3 4 5
-100 ([ (> *. 0 <: ]) (128!:8)) i. 22x
-100 ([ (> *. 0 <: ]) (128!:8)) 5 %~ i. 22x
+100 ([ (> *. 0 <: ]) (128!:8)) i. 22
+100 ([ (> *. 0 <: ]) (128!:8)) 5 %~ i. 22
 
 
 

test/g200.ijs

@@ -263,9 +263,7 @@ f"0 (i:2)+<.%:<:2^53
 x=: 7700892415753674751
 
 (3   (17 &|)@^ 9.5) -: 17|3  ^9.5
-(3   (17x&|)@^ 9.5) -: 17|3  ^9.5
 (3.7 (17 &|)@^ 9  ) -: 17|3.7^9
-(3.7 (17x&|)@^ 9  ) -: 17|3.7^9
 
 h=: 7927
 y=: 1e5 4 2
@@ -289,13 +287,13 @@ _ -:  2.5 ^ _
 'domain error' -: _5.15 ^ etx _ 
 'domain error' -: _0.15 ^ etx __
 
-0 0 0 1 _  _ _  _ -: ({._  1x)^ __ _5 _4 0 1 2 3x _
-0 0 0 1 __ _ __   -: ({.__ 1x)^ __ _5 _4 0 1 2 3x
-      0 1 _ _ _   -:          0 1 2 3x _ ^ {. _  1x
-0 0 0 _ 1 0 0 0   -: __ _5 _4 0 1 2 3x _ ^ {. __ 1x
+0 0 0 1 _  _ _  _ -: ({._  1)^ __ _5 _4 0 1 2 3 _
+0 0 0 1 __ _ __   -: ({.__ 1)^ __ _5 _4 0 1 2 3
+      0 1 _ _ _   -:          0 1 2 3 _ ^ {. _  1
+0 0 0 _ 1 0 0 0   -: __ _5 _4 0 1 2 3 _ ^ {. __ 1
 
-'domain error' -: _5x   ^ etx {._ 1x
-'domain error' -: __ 1x ^ etx {._ 1x
+'domain error' -: _5   ^ etx {._ 1
+'domain error' -: __ 1 ^ etx {._ 1
 
 0 0 0 1 _  _ _  _ -: ({._  1r1)^ __ _5 _4 0 1 2 3r1 _
 0 0 0 1 __ _ __   -: ({.__ 1r1)^ __ _5 _4 0 1 2 3r1

test/g200m.ijs

@@ -22,13 +22,8 @@ g=: 3 : 0
 (f -: g) _1e3  2 _5
 (f -: g) _1e3 _2 _5
 
-(f -: g) x:  1e6  2 500
-(f -: g) x:  1e6 _2 500
-(f -: g) x: _1e6  2 500
-(f -: g) x: _1e6 _2 500
-
-1r4          -: 2 (1e6&|@^) _2x
-125 625 1r25 -: 5 (1e6&|@^) 3 4 _2x
+1r4          -: 2 (1e6&|@^) _2
+125 625 1r25 -: 5 (1e6&|@^) 3 4 _2
 
 4!:55 ;:'f g'
 

test/g202b.ijs

@@ -2,22 +2,13 @@
 NB. ^: with boxed right argument ----------------------------------------
 
 (>:   ^:(i.1000)  1     ) -: >:   ^:(<1000)  1
-(>:   ^:(i.1000)  1x    ) -: >:   ^:(<1000)  1x
 (>:&.>^:(i.1000) <1     ) -: >:&.>^:(<1000) <1
 
-NB. obsolete (>:   ^:(i.   0)  1     ) -: >:   ^:(<   0)  1
-NB. obsolete (>:   ^:(i.   0)  1x    ) -: >:   ^:(<   0)  1x
-NB. obsolete (>:&.>^:(i.   0) <1     ) -: >:&.>^:(<   0) <1
 'domain error' -: ex '>:&.>^:(<   0) <1'
 
 (>:   ^:(i.1000)  1 4 9 ) -: >:   ^:(<1000)  1 4 9
-(>:   ^:(i.1000)  1 4 9x) -: >:   ^:(<1000)  1 4 9x
 (>:&.>^:(i.1000) <1 4 9 ) -: >:&.>^:(<1000) <1 4 9
 
-NB. obsolete (>:   ^:(i.   0)  1 4 9 ) -: >:   ^:(<   0)  1 4 9
-NB. obsolete (>:   ^:(i.   0)  1 4 9x) -: >:   ^:(<   0)  1 4 9x
-NB. obsolete (>:&.>^:(i.   0) <1 4 9 ) -: >:&.>^:(<   0) <1 4 9
-
 f=: ^:a:
 '^:a:' -: 5!:5 <'f'
 
@@ -31,8 +22,8 @@ spleak=: 3 : 0
  1
 )
 
-spleak '>:   ^:(<1000)  1x'
-spleak '>:&.>^:(<1000) <1 '
+spleak '>:   ^:(<1000)  1'
+spleak '>:&.>^:(<1000) <1'
 
 'domain error' -: >:^:(<2.5) etx 1
 'domain error' -: >:^:(<2j5) etx 1

test/g211.ijs

@@ -41,7 +41,6 @@ c f&> <($d)$-~0j1
 8192  -: type $. 10$2.7
 16384 -: type $. 10$2j7
 
-'domain error' -: $. etx 2 37x
 'domain error' -: $. etx 2 3r7
 
 'nonce error'  -: $. etx 3 4$'a'
@@ -103,7 +102,6 @@ scheck@(1&$.)"(1) 3 5 7 11;"1 ,/(perm 4){"(2 1) 4 comb 4
 'domain error' -: 1$. etx (10&u:'abc');0 1;0
 'domain error' -: 1$. etx (<2 3 4);0 1;0
 'domain error' -: 1$. etx (>IF64{3e9 4;3e19 4);0 1;0
-'domain error' -: 1$. etx 2 3 4;0 1;2x
 'domain error' -: 1$. etx 2 3 4;0 1;2r3
 
 'length error' -: 1$. etx 2 3 4;0 1;0;99
@@ -174,8 +172,7 @@ e=: (2;0 1 2)$.a
 (7$.e) = (2 2;i.3)$.c
 (7$.e) = (2 2;i.3)$.d
 
-'domain error' -: 2 $.etx 0 1 2x 
-'domain error' -: 2 $.etx 0 1r2 
+'domain error' -: 2 $.etx 0 1r2
 
 'domain error' -: (2;'ab') $. etx $. i.2 3
 'domain error' -: (2;<<2 ) $. etx $. i.2 3
@@ -232,12 +229,10 @@ y=: $. x
 'domain error' -: 3 $.etx 0 1 2
 'domain error' -: 3 $.etx 0 1.2 
 'domain error' -: 3 $.etx 0 1j2 
-'domain error' -: 3 $.etx 0 1 2x 
 'domain error' -: 3 $.etx 0 1r2 
 'domain error' -: 3 $.etx 0 1;2 
 
 'domain error' -: (3;'a')   $. etx $. i.2 3
-'domain error' -: (3;4x )   $. etx $. i.2 3
 'domain error' -: (3;4r5)   $. etx $. i.2 3
 'domain error' -: (3;<<1)   $. etx $. i.2 3
 
@@ -277,7 +272,6 @@ g=: 4 $. $.
 'domain error' -: 4 $.etx 0 1 2
 'domain error' -: 4 $.etx 0 1.2 
 'domain error' -: 4 $.etx 0 1j2 
-'domain error' -: 4 $.etx 0 1 2x 
 'domain error' -: 4 $.etx 0 1r2 
 'domain error' -: 4 $.etx 0 1;2 
 
@@ -306,7 +300,6 @@ f j./o.?2 45$20
 'domain error' -: 5 $.etx 0 1 2
 'domain error' -: 5 $.etx 0 1.2 
 'domain error' -: 5 $.etx 0 1j2 
-'domain error' -: 5 $.etx 0 1 2x 
 'domain error' -: 5 $.etx 0 1r2 
 'domain error' -: 5 $.etx 0 1;2