version 1.1, 2008/02/08 16:49:09 |
version 1.2, 2008/02/08 18:49:41 |
|
|
#!perl -T |
#!perl -T |
# $RedRiver$ |
# $RedRiver: 25-decode_linktest.t,v 1.1 2008/02/08 16:49:09 andrew Exp $ |
|
|
use Test::More tests => 3; |
use Test::More tests => 3; |
use File::Spec; |
use File::Spec; |
|
|
$should_decode_to = { |
$should_decode_to = { |
'tests' => [ |
'tests' => [ |
{ |
{ |
|
'rate' => '9953 kbps', |
'SU Tx' => '500', |
'SU Tx' => '500', |
'SU RxErr' => '0 1286 ms 9953 kbps', |
'time' => '1286 ms', |
|
'SU RxErr' => '0', |
'SU Rx' => '500', |
'SU Rx' => '500', |
'AP Rx' => '500', |
'AP Rx' => '500', |
'AP RxErr' => '0', |
'AP RxErr' => '0', |
'AP Tx' => '500' |
'AP Tx' => '500' |
}, |
}, |
{ |
{ |
|
'rate' => '9945 kbps', |
'SU Tx' => '500', |
'SU Tx' => '500', |
'SU RxErr' => '0 1287 ms 9945 kbps', |
'time' => '1287 ms', |
|
'SU RxErr' => '0', |
'SU Rx' => '500', |
'SU Rx' => '500', |
'AP Rx' => '500', |
'AP Rx' => '500', |
'AP RxErr' => '0', |
'AP RxErr' => '0', |
'AP Tx' => '500' |
'AP Tx' => '500' |
}, |
}, |
{ |
{ |
|
'rate' => '9937 kbps', |
'SU Tx' => '500', |
'SU Tx' => '500', |
'SU RxErr' => '0 1288 ms 9937 kbps', |
'time' => '1288 ms', |
|
'SU RxErr' => '0', |
'SU Rx' => '500', |
'SU Rx' => '500', |
'AP Rx' => '500', |
'AP Rx' => '500', |
'AP RxErr' => '0', |
'AP RxErr' => '0', |
'AP Tx' => '500' |
'AP Tx' => '500' |
}, |
}, |
{ |
{ |
|
'rate' => '9945 kbps', |
'SU Tx' => '500', |
'SU Tx' => '500', |
'SU RxErr' => '0 1287 ms 9945 kbps', |
'time' => '1287 ms', |
|
'SU RxErr' => '0', |
'SU Rx' => '500', |
'SU Rx' => '500', |
'AP Rx' => '500', |
'AP Rx' => '500', |
'AP RxErr' => '0', |
'AP RxErr' => '0', |
'AP Tx' => '500' |
'AP Tx' => '500' |
}, |
}, |
{ |
{ |
|
'rate' => '9937 kbps', |
'SU Tx' => '500', |
'SU Tx' => '500', |
'SU RxErr' => '0 1288 ms 9937 kbps', |
'time' => '1288 ms', |
|
'SU RxErr' => '0', |
'SU Rx' => '500', |
'SU Rx' => '500', |
'AP Rx' => '500', |
'AP Rx' => '500', |
'AP RxErr' => '0', |
'AP RxErr' => '0', |