#!/usr/bin/perl

use strict;
use Test::Simple tests => 4;
use ShopDB::AuthorizeCard;

my $authCard = ShopDB::AuthorizeCard->new();

ok( defined( $authCard ), "new() successful" );
ok( ref $authCard eq 'ShopDB::AuthorizeCard', 
      "blessed into right package" );
ok( defined( $authCard ) and ref $authCard eq 'ShopDB::AuthorizeCard', 
      "new() successful, blessed into right package" );
ok( $authCard->can( 'AuthorizeCard' ),
      "found the AuthorizeCard() method" );