=================================================================== RCS file: /cvs/trango/Net-Telnet-Trango/t/31-decode-linktest.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- trango/Net-Telnet-Trango/t/31-decode-linktest.t 2008/02/08 16:49:09 1.1 +++ trango/Net-Telnet-Trango/t/31-decode-linktest.t 2008/02/08 18:49:41 1.2 @@ -1,5 +1,5 @@ #!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 File::Spec; @@ -36,40 +36,50 @@ $should_decode_to = { 'tests' => [ { + 'rate' => '9953 kbps', 'SU Tx' => '500', - 'SU RxErr' => '0 1286 ms 9953 kbps', + 'time' => '1286 ms', + 'SU RxErr' => '0', 'SU Rx' => '500', 'AP Rx' => '500', 'AP RxErr' => '0', 'AP Tx' => '500' }, { + 'rate' => '9945 kbps', 'SU Tx' => '500', - 'SU RxErr' => '0 1287 ms 9945 kbps', + 'time' => '1287 ms', + 'SU RxErr' => '0', 'SU Rx' => '500', 'AP Rx' => '500', 'AP RxErr' => '0', 'AP Tx' => '500' }, { + 'rate' => '9937 kbps', 'SU Tx' => '500', - 'SU RxErr' => '0 1288 ms 9937 kbps', + 'time' => '1288 ms', + 'SU RxErr' => '0', 'SU Rx' => '500', 'AP Rx' => '500', 'AP RxErr' => '0', 'AP Tx' => '500' }, { + 'rate' => '9945 kbps', 'SU Tx' => '500', - 'SU RxErr' => '0 1287 ms 9945 kbps', + 'time' => '1287 ms', + 'SU RxErr' => '0', 'SU Rx' => '500', 'AP Rx' => '500', 'AP RxErr' => '0', 'AP Tx' => '500' }, { + 'rate' => '9937 kbps', 'SU Tx' => '500', - 'SU RxErr' => '0 1288 ms 9937 kbps', + 'time' => '1288 ms', + 'SU RxErr' => '0', 'SU Rx' => '500', 'AP Rx' => '500', 'AP RxErr' => '0',