view release on metacpan or  search on metacpan

t/02-octarine.t  view on Meta::CPAN

#!/usr/bin/perl

# use strict;
use Test::More tests => 7;

use_ok('Acme::AutoColor', 'X', 'HTML');

ok( OCTARINE()  eq '000000ff', "octarine" );

my @octarine = OCTARINE();
ok( $octarine[0] == 0 );    # Red
ok( $octarine[1] == 0 );    # Green
ok( $octarine[2] == 0 );    # Blue
ok( $octarine[3] == 255 );  # Octarine
ok( @octarine == 4 );