[% title %]

From: Uri Guttman Date: Fri, 6 May 2011 07:42:54 +0000 (-0400) Subject: added support for template::teeny X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FTemplate-Simple.git;a=commitdiff_plain;h=7af713e3d56a26c199ffc0ac332948f1ac99e8ed added support for template::teeny --- diff --git a/extras/bench_new.pl b/extras/bench_new.pl old mode 100644 new mode 100755 index 62101dc..24bd979 --- a/extras/bench_new.pl +++ b/extras/bench_new.pl @@ -1,12 +1,15 @@ +#!/usr/bin/perl + +use lib '../lib' ; +use lib 'lib' ; use warnings ; use strict ; -use Getopt::Long ; use Data::Dumper ; +use Getopt::Long ; use File::Slurp ; - use Benchmark qw(:hireswallclock cmpthese); my $opts = parse_options() ; @@ -89,16 +92,15 @@ TOOLKIT [% title %] -

[% title %]
[% date %] -

{name} as it didn't load +BAD next ; } $bench->{setup}->( $bench, $info ) ; - $bench->{verify}->( $bench, $info ) ; - if ( $bench->{result} ne $info->{expected} ) { - - print - "RESULT [$bench->{result}]\nEXPECTED [$info->{expected}]\n" ; - } - else { - print "'$bench->{name}' rendering of '$info->{name}' is verified\n" ; + if ( $opts->{verify} ) { + $bench->{verify}->( $bench, $info ) ; + + if ( $bench->{result} ne $info->{expected} ) { + + print <{name} as it doesn't have verified results. +RESULT [$bench->{result}]\nEXPECTED [$info->{expected}] +BAD + next ; + } + else { + print <{name}' rendering of '$info->{name}' is verified +GOOD + } } $compares{ $bench->{name} } = $bench->{render} ; } + print "\nBenchmark of '$info->{name}' template\n" ; cmpthese( $opts->{iterations}, \%compares ) ; + print "\n" ; } } - - - sub parse_options { GetOptions( \my %opts,