Acme-EyeDrops

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- built-in shape 'all': now supports Width parameter
	- documentation: shortened some examples
	- new functions: get_eye_dir, set_eye_dir
	- new functions: add_builtin_shape, del_builtin_shape
	- new attribute: InformHandler
	- function pour_sightly: added new inform_handler parameter
	- new tests: border.t, gen.t, yharn.t, zgen.t (generated)
	-            sightly2.t removed (put into sightly.t)
	- test vshape.t: added tests for new functions
	- tests: now skipped correctly
	- tests: text.t now run in taint mode (-Tw)
	- Fixed some minor border-related bugs exposed by border.t
	- added camel shape to Makefile.PL/Build.PL
	- Support PERL_SMOKE environment variable for long-running tests
	  (see http://archive.develooper.com/perl-qa@perl.org/msg01927.html,
	  thanks merlyn)

1.42	Sun Aug 3 12:02:08 2003

	- Bug fix release for Perl 5.8.1 (see Perl bug #23143).
	- For the first time, the EyeDrops test suite uncovered a Perl bug
	  (dance a little jig): recur.t, test 4 failed on Perl 5.8.1-RC2
	  with the error: panic: pad_free curpad. Thanks merlyn for reporting.
	  Since this bug won't be fixed for 5.8.1, we workaround
	  it by never using $_ as a filler variable
	- sightly.t: run generated test programs in taint mode
	- tests: renamed to more appropriate names
	- tests: new long running test 13_to.t
	- documentation: added "Getting Started" section
	- documentation: fixed program in "Naked Arm Wrestling" section
	- documentation: updated 'Abbreviated History of Perl 6' section

1.43	Sun Aug 31 17:12:55 2003

	- new shapes: alpaca, bighorn, map_italy
	- removed functions set_eye_dir, add_builtin_shape, del_builtin_shape
	  which were mistakenly added to version 1.41 (these are not really
	  necessary and change module state, which is a Bad Thing)
	- documentation: added 'twang bra-strap' to acme shape description
	- tests: merged old 13_to.t, old 12_Beer.t to new 19_surrounds.t
	         new Test::Pod test, 18_sky.t
	         11_bold.t now tested in taint mode (no banner test)
	         12_Beer.t now banner test only (not taint safe)

1.44	Sun Apr 25 19:07:41 2004

	- Bug fix release for Perl 5.8.4: some of the tests broke because
	  they were naughtily exploiting a Perl bug re use strict inside
	  (?{...}) constructions in regexps (see 01_mug.t/05_Parrot.t)
	- new shapes: map_world1, map_world2, map_world3, map_japan, map_uk
	- new shapes: music, dan, bottle3
	- Build.PL: fixed for Module::Build v0.24 (_find_file_by_type changed)
	- new attribute: SourceHandle

t/10_Ponie.t  view on Meta::CPAN

#!/usr/bin/perl
# 10_Ponie.t (was text.t)
# This tests OK as taint-safe (i.e. with -Tw added to first line above).

use strict;
use Acme::EyeDrops qw(sightly hjoin_shapes get_eye_string pour_text);

# --------------------------------------------------

select(STDERR);$|=1;select(STDOUT);$|=1;  # autoflush

print "1..34\n";

t/11_bold.t  view on Meta::CPAN

#!/usr/bin/perl
# 11_bold.t (was vshape.t)
# This tests OK as taint-safe (i.e. with -Tw added to first line above).

use strict;
use Acme::EyeDrops qw(get_eye_string get_eye_shapes
                      get_builtin_shapes
                      make_triangle make_siertri
                      border_shape invert_shape reflect_shape
                      hjoin_shapes sightly
                      reduce_shape expand_shape rotate_shape);

select(STDERR);$|=1;select(STDOUT);$|=1;  # autoflush

t/12_Beer.t  view on Meta::CPAN

#!/usr/bin/perl
# 12_Beer.t (was banner test in vshape.t)
# This test is not taint-safe (rest of vshape.t is, so separate this one)
# Test make_banner.

use strict;
use Acme::EyeDrops qw(make_banner);

select(STDERR);$|=1;select(STDOUT);$|=1;  # autoflush

# --------------------------------------------------

# make_banner is linux only (also requires /usr/games/banner executable)

t/19_surrounds.t  view on Meta::CPAN

   '16_astride.t',
   '17_Orange.t',
   '18_sky.t',
);
my @tests  = map("$base/$_",  @unames);
my @ztests = map("$base/z$_", @unames);

# Generate sightly-encoded versions of test programs (see also gen.t).
for my $i (0..$#unames) {
   $attrs{SourceFile} = $tests[$i];
   # Assume first line is #!/usr/bin/perl (needed for taint mode tests).
   my $s_new = get_first_line($attrs{SourceFile}) . "# This program was generated by $0\n";
   $s_new .= sightly(\%attrs);
   build_file($ztests[$i], $s_new);
}

# --------------------------------------------------
# Run with normal EyeDrops.pm as a speed comparison.

test_one('unsightly EyeDrops.pm, plain tests', \@tests);
test_one('unsightly EyeDrops.pm, generated tests', \@ztests);

t/gen.t  view on Meta::CPAN

   Gap            => 1
);
my @pnames = ( 'gen.t' );

print "1..", scalar(@pnames), "\n";

my $itest = 0;
my $base = File::Basename::dirname($0);
for my $p (@pnames) {
   $attrs{SourceFile} = "$base/$p";
   # Assume first line is #!/usr/bin/perl (needed for taint mode tests).
   my $s_new = get_first_line($attrs{SourceFile}) .
               "# This program was generated by gen.t\n";
   $s_new .= sightly(\%attrs);
   if ($generate) {
      build_file("$base/z$p", $s_new);
      next;
   }
   my $s_old = Acme::EyeDrops::_slurp_tfile("$base/z$p");
   $s_old eq $s_new or print "not ";
   ++$itest; print "ok $itest - $p\n";