Skip to content

Commit

Permalink
[t] Add new test to Task PMC [2]
Browse files Browse the repository at this point in the history
  • Loading branch information
fernandobrito committed Dec 31, 2010
1 parent cccac93 commit 8f87d11
Showing 1 changed file with 18 additions and 1 deletion.
19 changes: 18 additions & 1 deletion t/pmc/task.t
Expand Up @@ -5,7 +5,7 @@ use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 4;
use Parrot::Test tests => 5;

=head1 NAME
Expand Down Expand Up @@ -140,6 +140,23 @@ event
1.1
OUT

pir_output_is( <<'CODE', <<'OUT', 'create a task and get invalid attribut (exception)' );
.sub main :main
$P0 = new ['Task']
$P0 = getattribute $P0, 'foobar'
isnull $I0, $P0
if $I0, ok
say 'fail'
ok:
say 'ok'
.end
CODE
ok
OUT

pir_output_is( <<'CODE', <<'OUT', "freeze and thaw a task" );
.sub main :main
$P0 = new ['Task']
Expand Down

0 comments on commit 8f87d11

Please sign in to comment.