lib/Term/ANSIColor/test.pl

   1 #!/usr/bin/perl
   2 # $Id: test.pl,v 1.5 2005/08/21 18:31:58 eagle Exp $
   3 #
   4 # test.pl -- Test suite for the Term::ANSIColor Perl module.
   5 #
   6 # Before "make install" is performed this script should be runnable with "make
   7 # test".  After "make install" it should work as "perl test.pl".
   8
   9 ##############################################################################
  10 # Ensure module can be loaded
  11 ##############################################################################
  12
  13 BEGIN { $| = 1; print "1..16\n" }
  14 END   { print "not ok 1\n" unless $loaded }
  15 delete $ENV{ANSI_COLORS_DISABLED};
  16 use Term::ANSIColor qw(:constants color colored uncolor);
  17 $loaded = 1;
  18 print "ok 1\n";
  19
  20 ##############################################################################
  21 # Test suite
  22 ##############################################################################
  23
  24 # Test simple color attributes.
  25 if (color ('blue on_green', 'bold') eq "\e[34;42;1m") {
  26     print "ok 2\n";
  27 } else {
  28     print "not ok 2\n";
  29 }
  30
  31 # Test colored.
  32 if (colored ("testing", 'blue', 'bold') eq "\e[34;1mtesting\e[0m") {
  33     print "ok 3\n";
  34 } else {
  35     print "not ok 3\n";
  36 }
  37
  38 # Test the constants.
  39 if (BLUE BOLD "testing" eq "\e[34m\e[1mtesting") {
  40     print "ok 4\n";
  41 } else {
  42     print "not ok 4\n";
  43 }
  44
  45 # Test AUTORESET.
  46 $Term::ANSIColor::AUTORESET = 1;
  47 if (BLUE BOLD "testing" eq "\e[34m\e[1mtesting\e[0m\e[0m") {
  48     print "ok 5\n";
  49 } else {
  50     print "not ok 5\n";
  51 }
  52
  53 # Test EACHLINE.
  54 $Term::ANSIColor::EACHLINE = "\n";
  55 if (colored ("test\n\ntest", 'bold')
  56     eq "\e[1mtest\e[0m\n\n\e[1mtest\e[0m") {
  57     print "ok 6\n";
  58 } else {
  59     print colored ("test\n\ntest", 'bold'), "\n";
  60     print "not ok 6\n";
  61 }
  62
  63 # Test EACHLINE with multiple trailing delimiters.
  64 $Term::ANSIColor::EACHLINE = "\r\n";
  65 if (colored ("test\ntest\r\r\n\r\n", 'bold')
  66     eq "\e[1mtest\ntest\r\e[0m\r\n\r\n") {
  67     print "ok 7\n";
  68 } else {
  69     print "not ok 7\n";
  70 }
  71
  72 # Test the array ref form.
  73 $Term::ANSIColor::EACHLINE = "\n";
  74 if (colored (['bold', 'on_green'], "test\n", "\n", "test")
  75     eq "\e[1;42mtest\e[0m\n\n\e[1;42mtest\e[0m") {
  76     print "ok 8\n";
  77 } else {
  78     print colored (['bold', 'on_green'], "test\n", "\n", "test");
  79     print "not ok 8\n";
  80 }
  81
  82 # Test uncolor.
  83 my @names = uncolor ('1;42', "\e[m", '', "\e[0m");
  84 if (join ('|', @names) eq 'bold|on_green|clear') {
  85     print "ok 9\n";
  86 } else {
  87     print join ('|', @names), "\n";
  88     print "not ok 9\n";
  89 }
  90
  91 # Test ANSI_COLORS_DISABLED.
  92 $ENV{ANSI_COLORS_DISABLED} = 1;
  93 if (color ('blue') eq '') {
  94     print "ok 10\n";
  95 } else {
  96     print "not ok 10\n";
  97 }
  98 if (colored ('testing', 'blue', 'on_red') eq 'testing') {
  99     print "ok 11\n";
 100 } else {
 101     print "not ok 11\n";
 102 }
 103 if (GREEN 'testing' eq 'testing') {
 104     print "ok 12\n";
 105 } else {
 106     print "not ok 12\n";
 107 }
 108 delete $ENV{ANSI_COLORS_DISABLED};
 109
 110 # Make sure DARK is exported.  This was omitted in versions prior to 1.07.
 111 if (DARK "testing" eq "\e[2mtesting\e[0m") {
 112     print "ok 13\n";
 113 } else {
 114     print "not ok 13\n";
 115 }
 116
 117 # Test colored with 0 and EACHLINE.
 118 $Term::ANSIColor::EACHLINE = "\n";
 119 if (colored ('0', 'blue', 'bold') eq "\e[34;1m0\e[0m") {
 120     print "ok 14\n";
 121 } else {
 122     print "not ok 14\n";
 123 }
 124 if (colored ("0\n0\n\n", 'blue', 'bold')
 125     eq "\e[34;1m0\e[0m\n\e[34;1m0\e[0m\n\n") {
 126     print "ok 15\n";
 127 } else {
 128     print "not ok 15\n";
 129 }
 130
 131 # Test colored with the empty string and EACHLINE.
 132 if (colored ('', 'blue', 'bold') eq '') {
 133     print "ok 16\n";
 134 } else {
 135     print "not ok 16\n";
 136 }