View of /Sprout/SimpleTest.pl

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";
    }
}