root/Convert-RACE/trunk/t/02race.t

Revision 27 (checked in by miyagawa, 19 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test;
3 BEGIN { plan tests => 6 }
4
5 use Convert::RACE qw(to_race from_race);
6
7 my $i1 = "\x01\x2D\x01\x11\x01\x4B";
8 my $i2 = "\x01\x2D\x00\xe0\x01\x4B";
9 my $i3 = "\x01\x2D\x00\x20\x24\xd3";
10
11 my $r1 = 'bq--aewrcsy';
12 my $r2 = 'bq--aew77ycl';
13 my $r3 = 'bq--3aas2abaetjq';
14
15 ok(to_race($i1),$r1);
16 ok(to_race($i2),$r2);
17 ok(to_race($i3),$r3);
18
19 ok(from_race($r1),$i1);
20 ok(from_race($r2),$i2);
21 ok(from_race($r3),$i3);
Note: See TracBrowser for help on using the browser.