1
- plan (36 * (6 + 3 ) + 3 + 7 );
1
+ plan (33 * (6 + 3 ) + 3 + 7 );
2
2
3
3
sub test_radix ($ radix ,$ str ,$ pos ,$ flags ,$ value ,$ mult ,$ offset ,$ desc ) {
4
4
my $ result := nqp ::radix($ radix ,$ str ,$ pos ,$ flags );
@@ -30,16 +30,14 @@ sub test_radix_both(*@args) {
30
30
test_radix_both(10 ," 123" ,0 ,2 , 123 ,1000 ,3 , " base-10 radix call with no flags" );
31
31
test_radix_both(10 ," +123" ,0 ,2 , 123 ,1000 ,4 , " base-10 radix call with flag 2 and +" );
32
32
test_radix_both(10 ," -123" ,0 ,2 , -123 ,1000 ,4 , " base-10 radix call with flag 2 and -" );
33
- test_radix_both(10 ," −123" ,0 ,2 , -123 ,1000 ,4 , " base-10 radix call with flag 2 and −" );
34
33
test_radix_both(10 ," -10" ,0 ,0 , 0 ,1 ,-1 , " no digits consumed when we get - without flag" );
35
34
test_radix_both(10 ," +10" ,0 ,0 , 0 ,1 ,-1 , " no digits consumed when we get + without flag" );
36
35
37
36
test_radix_both(10 , " 123" , 0 , 1 , -123 , 1000 , 3 , " base-10 radix with flag 1" );
38
37
39
38
test_radix_both(10 , " 12000" , 0 , 4 , 12 , 100 , 5 , " base-10 radix with flags 4" );
40
39
test_radix_both(10 , " 12000" , 0 , 5 , -12 , 100 , 5 , " base-10 radix with flags 4 and 1" );
41
- test_radix_both(10 , " -12000" , 0 , 6 , -12 , 100 , 6 , " base-10 radix with flags 4 and 2 with -" );
42
- test_radix_both(10 , " −12000" , 0 , 6 , -12 , 100 , 6 , " base-10 radix with flags 4 and 2 with −" );
40
+ test_radix_both(10 , " -12000" , 0 , 6 , -12 , 100 , 6 , " base-10 radix with flags 4 and 2" );
43
41
44
42
test_radix_both(10 ," 123" ,0 ,2 , 123 ,1000 ,3 , " basic base-10 radix call" );
45
43
test_radix_both(10 ," 123" ,1 ,2 , 23 ,100 ,3 , " basic base-10 radix call with pos" );
@@ -48,8 +46,7 @@ test_radix_both(15,"1a",0,2, 25,225,2, "base 15 call with lower case" );
48
46
test_radix_both(15 ," 1B" ,0 ,2 , 26 ,225 ,2 , " base 15 call with upper case" );
49
47
test_radix_both(16 ," 1a" ,0 ,2 , 26 ,256 ,2 , " base 16 call with lower case" );
50
48
test_radix_both(16 ," 1B" ,0 ,2 , 27 ,256 ,2 , " base 16 call with upper case" );
51
- test_radix_both(15 ," -1B" ,0 ,2 , -26 ,225 ,3 , " base 15 call with upper case and negation with -" );
52
- test_radix_both(15 ," −1B" ,0 ,2 , -26 ,225 ,3 , " base 15 call with upper case and negation with −" );
49
+ test_radix_both(15 ," -1B" ,0 ,2 , -26 ,225 ,3 , " base 15 call with upper case and negation" );
53
50
test_radix_both(10 ," 000123" ,0 ,2 , 123 ,1000000 ,6 , " base-10 with zeros at the front" );
54
51
test_radix_both(10 ," 1_2_3" ,0 ,2 , 123 ,1000 ,5 , " base-10 with underscores" );
55
52
test_radix_both(10 ," not_a_number" ,0 ,2 , 0 ,1 ,-1 , " no digits consumed" );
0 commit comments