version 1.2, 2010/06/26 17:47:01 |
version 1.3, 2010/06/26 17:50:40 |
|
|
#!perl |
#!perl |
package NetworkTests; |
package NetworkTests; |
|
|
# $AFresh1: network_tests.t,v 1.1 2010/06/26 16:33:33 andrew Exp $ |
# $AFresh1: network_tests.t,v 1.2 2010/06/26 16:47:01 andrew Exp $ |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
no warnings 'uninitialized'; |
no warnings 'uninitialized'; |
my $result; |
my $result; |
eval { $result = $amd->$method( $test->{args} ) }; |
eval { $result = $amd->$method( $test->{args} ) }; |
is( $@, undef, "$method($test->{args})" ); |
is( $@, undef, "AMD->$method($test->{args})" ); |
is( $result, $test->{expect}, 'got expected result' ); |
is( $result, $test->{expect}, 'got expected result' ); |
} |
} |
} |
} |