[svn:parrot] r41981 - trunk/t/op

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Oct 21 18:52:01 2009
New Revision: 41981
URL: https://trac.parrot.org/parrot/changeset/41981

Log:
[t] add a test for the annotations problem fixed in r41976

Added:
   trunk/t/op/annotate-old.t   (contents, props changed)

Added: trunk/t/op/annotate-old.t
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/t/op/annotate-old.t	Wed Oct 21 18:52:01 2009	(r41981)
@@ -0,0 +1,44 @@
+#!perl
+# Copyright (C) 2009, Parrot Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
+=head1 NAME
+
+t/op/annotate_ext.t - Test .annotate directive
+
+=head1 SYNOPSIS
+
+    % prove t/op/annotate_ext.t
+
+=head1 DESCRIPTION
+
+Test use cases of the annotate directive that currently can't
+be covered with pir based tests.
+
+=cut
+
+pir_error_output_like( <<CODE, <<OUTPUT, 'unhandled exception from loaded function');
+.sub main :main
+    # Not using test more, just a quick way to pick a function
+    .include 'test_more.pir'
+    .annotate 'file', 'foobar'
+    .annotate 'line', 42
+    # Call with too many positional arguments
+    ok(0,0,0,0,0)
+.end
+CODE
+/\(foobar:42\)/
+OUTPUT
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: