use Test::More 'tests' => 8;
use lib '../lib';
use_ok('UDCode');
*is_prefix_of = \*UDCode::is_prefix_of;
ok( is_prefix_of("", "abb"));
ok( is_prefix_of("a", "abb"));
ok( is_prefix_of("ab", "abb"));
ok( is_prefix_of("abb", "abb"));
ok(! is_prefix_of("b", "abb"));
ok(! is_prefix_of("ba", "abb"));
ok(! is_prefix_of("bb", "abb"));