X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FTemplate-Simple.git;a=blobdiff_plain;f=extras%2Fbench_new.pl;h=24bd9794b0ac92e0aa4bf564b7506cd90d7ea60e;hp=62101dc6ada5541c0fc3c215512cbc223fb6fc46;hb=7af713e3d56a26c199ffc0ac332948f1ac99e8ed;hpb=b8f7f9ecb05c5b9f4bc01da4fb8ba5168add7bef
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 %]
-
- [% SECTION post %]
+ [% SECTION post %]
-
[% title %]
[% date %]
-
- [% END %]
+ [% END %]
+
TEENY
},
] ;
@@ -157,6 +159,68 @@ my $benches = [
$bench->{result} = ${$result} ;
},
},
+ {
+ name => 'Teeny',
+ template_key => 'teeny',
+ load => sub {
+ return eval {
+ require Template::Teeny ;
+ require Template::Teeny::Stash ;
+ } ;
+ },
+ setup => sub {
+ my( $bench, $info ) = @_ ;
+
+ my $template = $info->{$bench->{template_key}} ;
+ my $data = $info->{data} ;
+ my $name = $info->{name} ;
+
+ my $results ;
+ open my $fh, '>', \$results or
+ die "can't open string for output" ;
+
+ mkdir 'tpl' ;
+ write_file( "tpl/$name.tpl", $template ) ;
+ my $obj = Template::Teeny->new(
+ { include_path => ['tpl'] }
+ ) ;
+
+ my $stash ;
+ if ( my $posts = $data->{posts} ) {
+
+ $stash = Template::Teeny::Stash->new(
+ { title => $data->{title} }
+ ) ;
+
+ foreach my $post ( @{$posts} ) {
+
+ my $substash =
+ Template::Teeny::Stash->new(
+ $post
+ ) ;
+ $stash->add_section('post', $substash );
+ }
+ }
+ else {
+ $stash = Template::Teeny::Stash->new(
+ $data
+ ) ;
+
+ }
+
+#print Dumper $stash ;
+ $bench->{render} =
+ sub {
+ $obj->process("$name.tpl", $stash, $fh );
+ $bench->{result} = $results ;
+ }
+
+ },
+ verify => sub {
+ my( $bench, $info ) = @_ ;
+ $bench->{result} = $bench->{render}->() ;
+ },
+ },
] ;
run_benchmarks() ;
@@ -171,33 +235,41 @@ sub run_benchmarks {
my $loaded = $bench->{load}->() ;
unless( $loaded ) {
- print
- "skipping $bench->{name} as it didn't load\n" ;
+ print <{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,