t/op/errorson.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/errorson.t - Test the errorson opcode
   8
   9 =head1 SYNOPSIS
  10
  11 % prove t/op/errorson.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests that the errorson opcode turns exception-throwing on and off correctly.
  16
  17 =cut
  18
  19 .sub test_main :main
  20     .include 'test_more.pir'
  21     .include 'errors.pasm'
  22
  23     plan(1)
  24     test_find_name()
  25 .end
  26
  27 .sub test_find_name
  28        errorson .PARROT_ERRORS_GLOBALS_FLAG
  29        push_eh myhandler
  30        $P0 = find_name "i_better_not_exist_or_this_thing_is_crazy"
  31        pop_eh
  32        if null $P0 goto wasnull
  33        ok(0, "variable not null, must have existed somehow. inconceivable!")
  34        .return()
  35 wasnull:
  36        todo(0,'errorson did not throw an exception for calling find_name on an unbound variable with PARROT_ERRORS_GLOBALS_FLAG')
  37        .return()
  38 myhandler:
  39        pop_eh
  40        ok(1,'errorson threw an exception for calling find_name on an unbound variable with PARROT_ERRORS_GLOBALS_FLAG')
  41 .end
  42
  43 # Local Variables:
  44 #   mode: pir
  45 #   fill-column: 100
  46 # End:
  47 # vim: expandtab shiftwidth=4 ft=pir: