Author: coke
Date: Sun Mar 30 21:16:51 2008
New Revision: 26655
Modified:
trunk/t/compilers/imcc/syn/regressions.t
Log:
[t] Add a failing todo test for RT# 43048 (div by zero const. folding issue)
Modified: trunk/t/compilers/imcc/syn/regressions.t
==============================================================================
--- trunk/t/compilers/imcc/syn/regressions.t (original)
+++ trunk/t/compilers/imcc/syn/regressions.t Sun Mar 30 21:16:51 2008
@@ -1,15 +1,14 @@
#!perl
# Copyright (C) 2008, The Perl Foundation.
-# $Id $
+# $Id$
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Config;
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
-pir_error_output_like( <<'CODE', <<'OUT', "RT# 41097", todo => 'segfaults');
+pir_error_output_like( <<'CODE', <<'OUT', 'invalid get_results syntax', todo
=> "RT# 41097");
.sub main :main
get_results '(0)'
.end
@@ -17,6 +16,18 @@
/syntax error/
OUT
+pir_output_is( <<'CODE', <<'OUT', 'cannot constant fold div by 0', todo=> 'RT#
43048');
+.sub fold_by_zero
+ push_eh ok
+ $I1 = 1/0
+ clear_eh
+ ok:
+ say "ok"
+.end
+CODE
+ok
+OUT
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
