t/op/annotate-old.t

   1 #!perl
   2 # Copyright (C) 2009-2010, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9 use Parrot::Test tests => 1;
  10
  11 =head1 NAME
  12
  13 t/op/annotate-old.t - Test .annotate directive
  14
  15 =head1 SYNOPSIS
  16
  17     % prove t/op/annotate-old.t
  18
  19 =head1 DESCRIPTION
  20
  21 Test use cases of the annotate directive that currently can't
  22 be covered with pir based tests.
  23
  24 =cut
  25
  26 pir_error_output_like( <<CODE, <<OUTPUT, 'unhandled exception from loaded function');
  27 .sub main :main
  28     # Not using test more, just a quick way to pick a function
  29     .include 'test_more.pir'
  30     .annotate 'file', 'foobar'
  31     .annotate 'line', 42
  32     # Call with too many positional arguments
  33     ok(0,0,0,0,0)
  34 .end
  35 CODE
  36 /\(foobar:42\)/
  37 OUTPUT
  38
  39
  40 # Local Variables:
  41 #   mode: cperl
  42 #   cperl-indent-level: 4
  43 #   fill-column: 100
  44 # End:
  45 # vim: expandtab shiftwidth=4: