t/1-classes/wrapping-base.t

   1 #!perl
   2 #
   3 # This file is part of Language::Befunge.
   4 # Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 #
  12 # Language::Befunge::Wrapping
  13 #
  14
  15 use strict;
  16 use warnings;
  17
  18 use Test::More tests => 3;
  19 use Test::Exception;
  20
  21 use Language::Befunge::Wrapping;
  22
  23 #-- constructor
  24
  25 #- new()
  26 my $w = Language::Befunge::Wrapping->new;
  27 isa_ok($w, 'Language::Befunge::Wrapping');
  28 can_ok($w, 'wrap');
  29 throws_ok(sub { $w->wrap }, qr/not implemented in LBW/, "stub wrap method");