2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 64; |
use Test::More tests => 67; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use blib; |
use blib; |
159 |
|
|
160 |
cmp_ok( rec('902'), 'eq', rec('902','z'), 'rec sf' ); |
cmp_ok( rec('902'), 'eq', rec('902','z'), 'rec sf' ); |
161 |
|
|
162 |
|
# simple list manipulatons |
163 |
|
cmp_ok( join('', prefix('ab', 'cd') ), 'eq', 'abcd', 'prefix'); |
164 |
|
cmp_ok( join('', suffix('xy', 'cd') ), 'eq', 'cdxy', 'suffix'); |
165 |
|
cmp_ok( join('', surround('->', '<-', 'a','b','c') ), 'eq', '->a<-->b<-->c<-', 'surround'); |
166 |
|
|
167 |
|
|
168 |
set_lookup( $lookup1 ); |
set_lookup( $lookup1 ); |
169 |
|
|
170 |
cmp_ok( |
cmp_ok( |