Author: allison
Date: Thu Jun 14 12:18:45 2007
New Revision: 19001
Modified:
trunk/t/pdd15oo/string.t
Log:
Porting over test changes from main tests to PDD 15 fork.
Modified: trunk/t/pdd15oo/string.t
==============================================================================
--- trunk/t/pdd15oo/string.t (original)
+++ trunk/t/pdd15oo/string.t Thu Jun 14 12:18:45 2007
@@ -260,7 +260,7 @@
OUTPUT
# This asks for substring it shouldn't be allowed...
-pasm_output_like( <<'CODE', <<'OUTPUT', 'substr OOB' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', 'substr OOB' );
set S0, "A string of length 21"
set I0, -99
set I1, 6
@@ -271,7 +271,7 @@
OUTPUT
# This asks for substring it shouldn't be allowed...
-pasm_output_like( <<'CODE', <<'OUTPUT', 'substr OOB' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', 'substr OOB' );
set S0, "A string of length 21"
set I0, 99
set I1, 6
@@ -381,7 +381,7 @@
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '5 arg substr, offset past end of
string' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '5 arg substr, offset past end
of string' );
set S0, "abcdefghijk"
set S1, "xyz"
substr S2, S0, 12, 3, S1
@@ -447,7 +447,7 @@
fghi
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '5 arg substr, -ve offset out of
string' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '5 arg substr, -ve offset out of
string' );
set S0, "abcdefghijk"
set S1, "xyz"
substr S2, S0, -12, 4, S1
@@ -517,7 +517,7 @@
end
CODE
-pasm_output_like( <<'CODE', <<'OUTPUT', "substr, +ve offset, zero-length
string" );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', "substr, +ve offset, zero-length
string" );
set S0, ""
substr S1, S0, 10, 3
print S1
@@ -536,7 +536,7 @@
_
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', "substr, offset -1, zero-length
string" );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', "substr, offset -1, zero-length
string" );
set S0, ""
substr S1, S0, -1, 1
print S1
@@ -545,7 +545,7 @@
/Cannot take substr outside string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', "substr, -ve offset, zero-length
string" );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', "substr, -ve offset, zero-length
string" );
set S0, ""
substr S1, S0, -10, 5
print S1
@@ -1015,7 +1015,7 @@
foo
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '2-param ord, empty string' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '2-param ord, empty string' );
ord I0,""
print I0
end
@@ -1023,7 +1023,7 @@
/^Cannot get character of empty string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '2-param ord, empty string register' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '2-param ord, empty string
register' );
ord I0,S0
print I0
end
@@ -1031,7 +1031,7 @@
/^Cannot get character of empty string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, empty string' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, empty string' );
ord I0,"",0
print I0
end
@@ -1039,7 +1039,7 @@
/^Cannot get character of empty string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, empty string register' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, empty string
register' );
ord I0,S0,0
print I0
end
@@ -1092,7 +1092,7 @@
end
CODE
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character string'
);
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character
string' );
ord I0,"ab",2
print I0
end
@@ -1100,7 +1100,7 @@
/^Cannot get character past end of string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character string'
);
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character
string' );
set S0,"ab"
ord I0,S0,2
print I0
@@ -1135,7 +1135,7 @@
end
CODE
-pasm_output_like(
+pasm_error_output_like(
<<'CODE', <<'OUTPUT', '3-param ord, multi-character string register, from
end, OOB' );
set S0,"ab"
ord I0,S0,-3
@@ -1274,7 +1274,7 @@
>< done
OUTPUT
-pasm_output_is( <<'CODE', "Cannot repeat with negative arg\n", 'repeat OOB' );
+pasm_error_output_like( <<'CODE', qr/Cannot repeat with negative arg\n/,
'repeat OOB' );
repeat S0, "japh", -1
end
CODE
@@ -2789,7 +2789,7 @@
end
CODE
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character string,
I' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character
string, I' );
set I1, 2
ord I0,"ab",I1
print I0
@@ -2798,7 +2798,7 @@
/^Cannot get character past end of string/
OUTPUT
-pasm_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character string,
I' );
+pasm_error_output_like( <<'CODE', <<'OUTPUT', '3-param ord, multi-character
string, I' );
set I1, 2
set S0,"ab"
ord I0,S0,I1
@@ -2838,7 +2838,7 @@
end
CODE
-pasm_output_like(
+pasm_error_output_like(
<<'CODE', <<'OUTPUT', '3-param ord, multi-character string register, from
end, OOB, I' );
set I1, -3
set S0,"ab"
