Author: chromatic
Date: Tue May 15 19:26:11 2007
New Revision: 18564
Modified:
trunk/compilers/imcc/parser_util.c
trunk/t/compilers/imcc/syn/errors.t
trunk/t/dynoplibs/myops.t
trunk/t/examples/japh.t
trunk/t/op/01-parse_ops.t
trunk/t/pmc/threads.t
Log:
[t] Mark known test failures with JIT and CGP as TODO.
The switch core is horribly broken.
Modified: trunk/compilers/imcc/parser_util.c
==============================================================================
--- trunk/compilers/imcc/parser_util.c (original)
+++ trunk/compilers/imcc/parser_util.c Tue May 15 19:26:11 2007
@@ -784,7 +784,7 @@
fs = string_make(interp, fullname, strlen(fullname), NULL, 0);
if (Parrot_stat_info_intval(interp, fs, STAT_ISDIR)) {
- IMCC_fatal(interp, E_IOError,
+ real_exception(interp, NULL, E_IOError,
"imcc_compile_file: '%s' is a directory\n", fullname);
return NULL;
}
@@ -871,7 +871,7 @@
IMCC_compile_file_s(Parrot_Interp interp, const char *s,
STRING **error_message)
{
- return imcc_compile_file(interp, s , error_message);
+ return imcc_compile_file(interp, s , error_message);
}
/* Register additional compilers with the interpreter */
Modified: trunk/t/compilers/imcc/syn/errors.t
==============================================================================
--- trunk/t/compilers/imcc/syn/errors.t (original)
+++ trunk/t/compilers/imcc/syn/errors.t Tue May 15 19:26:11 2007
@@ -7,7 +7,12 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Config;
-use Parrot::Test tests => 4;
+use Parrot::Test;
+
+plan skip_all => 'No reason to compile invalid PBC here'
+ if $ENV{TEST_PROG_ARGS} =~ /-r/;
+
+plan tests => 4;
## tests for imcc error messages
Modified: trunk/t/dynoplibs/myops.t
==============================================================================
--- trunk/t/dynoplibs/myops.t (original)
+++ trunk/t/dynoplibs/myops.t Tue May 15 19:26:11 2007
@@ -61,11 +61,13 @@
OUTPUT
{
+ my @todo;
+ @todo = ( todo => 'broken with -j' ) if $ENV{TEST_PROG_ARGS} =~ /-j/;
my $quine = <<'END_PASM';
.loadlib "myops_ops"
q
END_PASM
- pasm_output_is( $quine, $quine, 'a short cheating quine' );
+ pasm_output_is( $quine, $quine, 'a short cheating quine', @todo );
}
pir_output_is( << 'CODE', << 'OUTPUT', "one alarm" );
Modified: trunk/t/examples/japh.t
==============================================================================
--- trunk/t/examples/japh.t (original)
+++ trunk/t/examples/japh.t Tue May 15 19:26:11 2007
@@ -54,6 +54,9 @@
if ( $PConfig{intvalsize} == 8 ) {
$todo{8} = 'works only with 32-bit integer values';
}
+if ( $ENV{TEST_PROG_ARGS} =~ /-j/) {
+ $todo{4} = 'broken with -j';
+}
# run all tests and tell about todoness
foreach ( 1 .. 17 ) {
Modified: trunk/t/op/01-parse_ops.t
==============================================================================
--- trunk/t/op/01-parse_ops.t (original)
+++ trunk/t/op/01-parse_ops.t Tue May 15 19:26:11 2007
@@ -92,6 +92,9 @@
plan skip_all => 'IMCC cannot do parse-only with JIT enabled'
if $ENV{TEST_PROG_ARGS} =~ /-j/;
+plan skip_all => 'IMCC cannot do parse-only with switched core'
+ if $ENV{TEST_PROG_ARGS} =~ /-S/;
+
plan tests => scalar keys %cmds;
for my $cmd ( sort keys %cmds ) {
Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t (original)
+++ trunk/t/pmc/threads.t Tue May 15 19:26:11 2007
@@ -91,12 +91,12 @@
print I5
print "\n"
# get tid of thread
- $I0 = thread
+ $I0 = thread
# wait for it
thread.'join'()
.end
-.sub foo
+.sub foo
# check if vars are fresh
inc I5
print "thread"
@@ -134,12 +134,12 @@
print I5
print "\n"
# get tid of thread
- $I0 = thread
+ $I0 = thread
# wait for it
thread.'join'()
.end
-.sub foo
+.sub foo
# check if vars are fresh
inc I5
print "thread"
@@ -296,7 +296,7 @@
queue = new .TQueue # flag for when the thread is done
thread = new .ParrotThread
thread.'run_clone'(foo, queue)
-
+
thread.'detach'()
wait:
defined $I0, queue
@@ -330,7 +330,7 @@
thread.'run_clone'(foo, shared_ref)
sleep 0.1 # to let the thread run
-
+
.local pmc result
thread.'join'()
print "done\n"
@@ -366,7 +366,7 @@
tmpInt = new Integer
tmpInt = 3
push queue, tmpInt
-
+
.local pmc thread
thread = new ParrotThread
.local pmc foo
@@ -383,7 +383,7 @@
print "\n"
loop:
$I0 = queue
- if $I0 == 0 goto done
+ if $I0 == 0 goto done
shift $P0, queue
print $P0
print "\n"
@@ -479,7 +479,7 @@
thread = new ParrotThread
.local pmc thread_func
thread_func = global 'thread_func'
- $I0 = .PARROT_CLONE_CODE
+ $I0 = .PARROT_CLONE_CODE
thread.'run'($I0, thread_func, test2)
thread.'join'()
print "ok 5\n"
@@ -516,7 +516,7 @@
print "\n"
.end
-.sub thread_test_func
+.sub thread_test_func
$P0 = find_global 'Bar', 'alpha'
'is'($P0, 1, 'Bar::alpha == 1', 'alpha')
$P0 = 43
@@ -533,7 +533,7 @@
.namespace [ 'main' ]
-.sub test_setup
+.sub test_setup
$P0 = new Integer
$P0 = 1
store_global 'Bar', 'alpha', $P0
@@ -597,7 +597,7 @@
.namespace [ 'main' ]
-.sub init
+.sub init
$P1 = newclass 'Foo'
addattribute $P1, 'foo1'
addattribute $P1, 'foo2'
@@ -682,7 +682,7 @@
.namespace [ 'main' ]
-.sub init
+.sub init
$P0 = getclass .Integer
$P1 = subclass $P0, 'Foo'
addattribute $P1, 'foo1'
@@ -747,7 +747,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_GLOBALS| CLONE_HLL" );
.HLL 'Test', ''
-.sub setup
+.sub setup
$P0 = new .Integer
$P0 = 42
store_global 'x', $P0
@@ -804,7 +804,10 @@
ok 2
OUTPUT
-pir_output_unlike( <<'CODE', qr/not/, "globals + constant table subs issue" );
+my @todo;
[EMAIL PROTECTED] = ( todo => 'Broken with CGP' ) if $ENV{TEST_PROG_ARGS} =~
/-C/;
[EMAIL PROTECTED] = ( todo => 'Broken with JIT' ) if $ENV{TEST_PROG_ARGS} =~
/-j/;
+pir_output_unlike( <<'CODE', qr/not/, "globals + constant table subs issue",
@todo );
.namespace [ 'Foo' ]
.include 'interpinfo.pasm'
@@ -922,10 +925,10 @@
.sub main :main
- $P0 = new Integer
+ $P0 = new Integer
$P0 = 1
store_global 'test_num', $P0
-
+
.const .Sub _check = 'full_check'
_check()
@@ -988,7 +991,7 @@
PerlIntType = find_type 'PerlInt'
passed = new PerlIntType
passed = 15
-
+
.local pmc thread_func
thread_func = global 'test'
print "in thread:\n"
