#!/usr/bin/perl -w

use Test;
use strict;

BEGIN
  {
  unshift @INC, '../..';
  plan tests => 3;
  }

use CoW::Brush;
use CoW::Dromed::Constants qw(AIR FLOOD WEDGE);

my $one = new CoW::Brush ( kind => AIR(), shape => WEDGE() );
my $two = new CoW::Brush ( kind => FLOOD(), shape => WEDGE() );

ok ( AIR, $one->kind());		# did kind get set
ok ( WEDGE, $one->shape());		# did shape get set?
ok ( 1, $two->{id}-$one->{id});		# check wether id's are different

