#!/usr/bin/perl -w

use Test::More qw(no_plan); # for now ...

BEGIN {
    use_ok('Palm::AGsu') or die "cannot use Palm::AGsu';
};

require_ok('Palm::AGsu');

my pa = Palm::AGsu->new(...whatever...);

isa_ok($pa, 'Palm::AGsu');

is($pa->get_field_by_name('some field'), 'some value', 'some field == some value');

...