#!/usr/bin/perl

##
## Tests for invalid accessors
##

use strict;
use warnings;

use Test::More tests => 9;
use Carp;

use_ok( "accessors" );

## invalid accessor names
do {
    eval { import accessors $_ };
    ok( $@, "invalid accessor - $_" );
} for (qw( BEGIN CHECK INIT END DESTROY AUTOLOAD 1notasub @$%*&^';\/ ));