3 # This file is part of Language::Befunge.
4 # Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
6 # This program is free software; you can redistribute it and/or modify
7 # it under the same terms as Perl itself.
12 # Language::Befunge::Wrapping
18 use Test::More tests => 3;
21 use Language::Befunge::Wrapping;
26 my $w = Language::Befunge::Wrapping->new;
27 isa_ok($w, 'Language::Befunge::Wrapping');
29 throws_ok(sub { $w->wrap }, qr/not implemented in LBW/, "stub wrap method");