1#============================================================= -*-perl-*- 2# 3# t/core/rainbow.t 4# 5# Test the Badger::Rainbow module. 6# 7# Written by Andy Wardley <abw@wardley.org> 8# 9# This is free software; you can redistribute it and/or modify it 10# under the same terms as Perl itself. 11# 12#======================================================================== 13 14use strict; 15use warnings; 16 17use lib qw( t/core/lib ../t/core/lib ./lib ../lib ../../lib ); 18use Badger::Rainbow ANSI => 'dark bold red green blue yellow'; 19use Badger::Test 20 tests => 3, 21 debug => 'Badger::Rainbow', 22 args => \@ARGV; 23 24 25my $red = red("This is red"); 26my $green = green("This is green"); 27my $blue = blue("This is blue"); 28 29is( $red, "\e[31mThis is red\e[0m", $red); 30is( $green, "\e[32mThis is green\e[0m", $green); 31is( $blue, "\e[34mThis is blue\e[0m", $blue); 32 33 34__END__ 35 36# Local Variables: 37# mode: perl 38# perl-indent-level: 4 39# indent-tabs-mode: nil 40# End: 41# 42# vim: expandtab shiftwidth=4: 43