cvsuser 03/07/09 08:20:25
Modified: . core.ops
t/op stacks.t string.t time.t
Log:
removed a SKIP
Revision Changes Path
1.299 +12 -12 parrot/core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.298
retrieving revision 1.299
diff -u -w -r1.298 -r1.299
--- core.ops 9 Jul 2003 14:22:29 -0000 1.298
+++ core.ops 9 Jul 2003 15:20:24 -0000 1.299
@@ -2088,7 +2088,7 @@
inline op repeat(out STR, in STR, in INT) {
if ($3 < 0) {
- internal_exception(NEG_REPEAT, "Cannot repeat with negative arg");
+ internal_exception(NEG_REPEAT, "Cannot repeat with negative arg\n");
}
$1 = string_repeat(interpreter, $2, (UINTVAL)$3, NULL);
goto NEXT();
@@ -2381,7 +2381,7 @@
}
inline op new(out STR, in INT, in INT, in INT) {
- internal_exception(INVALID_CHARTYPE, "We don't do this yet");
+ internal_exception(INVALID_CHARTYPE, "We don't do this yet\n");
$1 = string_make(interpreter, NULL, $2, encoding_lookup_index($3), 0, NULL);
goto NEXT();
}
@@ -3633,7 +3633,7 @@
entry = stack_entry(interpreter, interpreter->ctx.user_stack, $2);
if (!entry) {
- internal_exception(99, "Stack Depth wrong");
+ internal_exception(99, "Stack Depth wrong\n");
}
$1 = get_entry_type(interpreter, entry);
goto NEXT();
@@ -3674,9 +3674,9 @@
Stack_Entry_t *entry =
stack_entry(interpreter, interpreter->ctx.user_stack, $2);
if (!entry)
- internal_exception(99, "Stack depth wrong");
+ internal_exception(99, "Stack depth wrong\n");
if (entry->entry_type != STACK_ENTRY_INT) {
- internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!");
+ internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!\n");
}
$1 = entry->entry.int_val;
@@ -3687,9 +3687,9 @@
Stack_Entry_t *entry =
stack_entry(interpreter, interpreter->ctx.user_stack, $2);
if (!entry)
- internal_exception(99, "Stack depth wrong");
+ internal_exception(99, "Stack depth wrong\n");
if (entry->entry_type != STACK_ENTRY_STRING) {
- internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!");
+ internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!\n");
}
$1 = entry->entry.string_val;
@@ -3700,9 +3700,9 @@
Stack_Entry_t *entry =
stack_entry(interpreter, interpreter->ctx.user_stack, $2);
if (!entry)
- internal_exception(99, "Stack depth wrong");
+ internal_exception(99, "Stack depth wrong\n");
if (entry->entry_type != STACK_ENTRY_FLOAT) {
- internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!");
+ internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!\n");
}
$1 = entry->entry.num_val;
@@ -3713,9 +3713,9 @@
Stack_Entry_t *entry =
stack_entry(interpreter, interpreter->ctx.user_stack, $2);
if (!entry)
- internal_exception(99, "Stack depth wrong");
+ internal_exception(99, "Stack depth wrong\n");
if (entry->entry_type != STACK_ENTRY_PMC) {
- internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!");
+ internal_exception(ERROR_BAD_STACK_TYPE, "Wrong type on stack!\n");
}
$1 = entry->entry.pmc_val;
@@ -4731,7 +4731,7 @@
inline op sleep(in INT) {
if ($1 < 0) {
- internal_exception(NEG_SLEEP, "Cannot go back in time");
+ internal_exception(NEG_SLEEP, "Cannot go back in time\n");
}
Parrot_sleep((UINTVAL)$1);
goto NEXT();
1.29 +1 -4 parrot/t/op/stacks.t
Index: stacks.t
===================================================================
RCS file: /cvs/public/parrot/t/op/stacks.t,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -w -r1.28 -r1.29
--- stacks.t 25 Jun 2003 12:30:43 -0000 1.28
+++ stacks.t 9 Jul 2003 15:20:25 -0000 1.29
@@ -653,8 +653,6 @@
done
OUTPUT
-SKIP: { skip("Await exceptions", 1);
-# this should throw an exception...
output_is(<<CODE, <<OUTPUT, "entrytype, beyond stack depth");
save 12
print "ready\\n"
@@ -663,9 +661,8 @@
end
CODE
ready
-Stack Depth Wrong
+Stack Depth wrong
OUTPUT
-}
output_is(<<'CODE', <<'OUTPUT', "depth op");
depth I0
1.51 +1 -1 parrot/t/op/string.t
Index: string.t
===================================================================
RCS file: /cvs/public/parrot/t/op/string.t,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -w -r1.50 -r1.51
--- string.t 23 Jun 2003 08:22:14 -0000 1.50
+++ string.t 9 Jul 2003 15:20:25 -0000 1.51
@@ -1112,7 +1112,7 @@
>< done
OUTPUT
-output_is(<<'CODE','Cannot repeat with negative arg','repeat OOB');
+output_is(<<'CODE',"Cannot repeat with negative arg\n",'repeat OOB');
repeat S0, "japh", -1
end
CODE
1.6 +2 -2 parrot/t/op/time.t
Index: time.t
===================================================================
RCS file: /cvs/public/parrot/t/op/time.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- time.t 1 Jun 2002 03:54:19 -0000 1.5
+++ time.t 9 Jul 2003 15:20:25 -0000 1.6
@@ -65,7 +65,7 @@
done
OUTPUT
-output_is(<<CODE, 'Cannot go back in time', "sleep");
+output_is(<<CODE, "Cannot go back in time\n", "sleep");
sleep -1
end
CODE
