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

View of /Sprout/SimpleTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sat Oct 1 10:35:02 2011 UTC (8 years ago) by parrello
Branch: MAIN
CVS Tags: rast_rel_2014_0912, rast_rel_2014_0729, mgrast_release_3_1_2, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_10262011, HEAD
Conversion to support Postgres for ERDB.

use strict;
use Tracer;
use ERDBTypeText;

my $text = ERDBTypeText->new();

my @strings =  ("abcdefg\thijkl\\mn\n\\nfrog\x96minusABCx96y96",
                "hello\nyoung\nlovers\n",
                "!@#$%^&*()_-+=[]{}|/.,<>",
                "THIS IS A TEST\n\n\\frog");
for my $string (@strings) {
    my $coded = $text->encode($string);
    print "Coded: $coded\n";
    my $decoded = $text->decode($coded);
    if ($decoded ne $string) {
        print "Decode failed.\n";
    } else {
        print "Decode worked.\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3