| 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' ); |
| } |
} |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to network_tests.t CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / HOPE / Net-OpenAMD / t