Source

Kephra / t / 101-apphelper.t

#!usr/bin/perl

# making local lib favoured
BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }

use Test::More tests => 3;
use Test::NoWarnings;

use Wx;
use Kephra::App::Helper;


my $white = Wx::Colour->new(255, 255, 255);

is(1, Kephra::App::Helper::is_a_color($white), 'can detect what is a color object');
is(0, Kephra::App::Helper::is_a_color(0),      'can detect what is not a color object');
#Kephra::App::Helper::get();
#Kephra::App::Helper::is_a_color();

exit(0);