t/str_rgba.t

   1 use 5.010_000;
   2 use strict;
   3 use utf8;
   4 use Test::More tests => 6;
   5
   6 require_ok ('Clawsker');
   7
   8 use Clawsker;
   9
  10 ok (
  11     defined &Clawsker::gdk_rgba_from_str,
  12     'has gdk_rgba_from_str function'
  13 );
  14
  15 ok (
  16     defined &Clawsker::str_from_gdk_rgba,
  17     'has str_from_gdk_rgba function'
  18 );
  19
  20
  21 ok (
  22     '#123456' eq Clawsker::str_from_gdk_rgba(Clawsker::gdk_rgba_from_str('#123456')),
  23     'complementarity'
  24 );
  25
  26 ok (
  27     '#000000' eq Clawsker::str_from_gdk_rgba(Clawsker::gdk_rgba_from_str('#000000')),
  28     'complementarity black'
  29 );
  30
  31 ok (
  32     '#ffffff' eq Clawsker::str_from_gdk_rgba(Clawsker::gdk_rgba_from_str('#ffffff')),
  33     'complementarity white'
  34 );
  35