[Bio] / Sprout / SimpleTest.pl Repository:
ViewVC logotype

Annotation of /Sprout/SimpleTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : parrello 1.1 use strict;
2 :     use Tracer;
3 :     use ERDBTypeText;
4 :    
5 :     my $text = ERDBTypeText->new();
6 :    
7 :     my @strings = ("abcdefg\thijkl\\mn\n\\nfrog\x96minusABCx96y96",
8 :     "hello\nyoung\nlovers\n",
9 :     "!@#$%^&*()_-+=[]{}|/.,<>",
10 :     "THIS IS A TEST\n\n\\frog");
11 :     for my $string (@strings) {
12 :     my $coded = $text->encode($string);
13 :     print "Coded: $coded\n";
14 :     my $decoded = $text->decode($coded);
15 :     if ($decoded ne $string) {
16 :     print "Decode failed.\n";
17 :     } else {
18 :     print "Decode worked.\n";
19 :     }
20 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3