#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

use SoPW_11102936;

my @methods = qw/
new

_empty
_undef
context_scalar_shift
context_list_shift
context_scalar_splice
context_list_splice
unload
/;
my @t_methods = grep /\Acontext/, @methods;

plan tests => 1 + ( scalar( @t_methods ) * 2 );


my $foo = SoPW_11102936->new;

isa_ok($foo, 'SoPW_11102936', 'its an SoPW object');

for my $method ( @t_methods ){
	
	$foo->_empty();
	$foo->$method();
        is($foo->unload, (), "$method is empty");
        	
	};

for my $method ( @t_methods ){
	
	$foo->_undef();
	$foo->$method();
        is($foo->unload, undef, "$method is undef");
        	
	};


diag( "Testing SoPW_11102936 $SoPW_11102936::VERSION, Perl $], $^X" );