diff options
author | dakkar <dakkar@sardina.(none)> | 2009-06-28 11:32:05 +0200 |
---|---|---|
committer | dakkar <dakkar@sardina.(none)> | 2009-06-28 11:32:05 +0200 |
commit | bafdd1bf402e0970facd7fdb29438596621dcd52 (patch) | |
tree | ac01bcfd2efa6ed4dbf82890aa888b8a89a20681 /t/07-class-xpath.t | |
parent | won't use PPIx::Class 1.x, it's too broken (diff) | |
download | Tree-Transform-XSLTish-bafdd1bf402e0970facd7fdb29438596621dcd52.tar.gz Tree-Transform-XSLTish-bafdd1bf402e0970facd7fdb29438596621dcd52.tar.bz2 Tree-Transform-XSLTish-bafdd1bf402e0970facd7fdb29438596621dcd52.zip |
rename, since we're not actually using Class::XPathclass-xpath
Diffstat (limited to 't/07-class-xpath.t')
-rw-r--r-- | t/07-class-xpath.t | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/t/07-class-xpath.t b/t/07-class-xpath.t deleted file mode 100644 index 7702993..0000000 --- a/t/07-class-xpath.t +++ /dev/null @@ -1,41 +0,0 @@ -#!perl -package main; -use Test::Most 'die'; -BEGIN { - eval 'use PPIx::XPath 2.00'; - plan skip_all => 'PPIx::XPath 2.00 needed for this test' if $@; -} - -package PPITransform;{ - use Tree::Transform::XSLTish; - use strict; - use warnings; - - default_rules; - - tree_rule match => 'Statement-Sub', action => sub { - return $_[0]->it->name.$_[0]->it->prototype; - }; - -} - -package main; -use strict; -use warnings; -use PPI; - -plan tests=>1; - -{ -my $doc=PPI::Document->new(\<<'EOP'); -sub gino($%) {} -sub pino {} - -gino(\&pino,{1=>2}); -EOP - -my $trans=PPITransform->new(); - -my @results=$trans->transform($doc); -is_deeply \@results,['gino($%)','pino'],'PPI example'; -} |