summaryrefslogtreecommitdiff
path: root/cpan/Devel-DProf/dprof
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Devel-DProf/dprof')
-rw-r--r--cpan/Devel-DProf/dprof/V.pm63
-rw-r--r--cpan/Devel-DProf/dprof/test1_t18
-rw-r--r--cpan/Devel-DProf/dprof/test1_v24
-rw-r--r--cpan/Devel-DProf/dprof/test2_t21
-rw-r--r--cpan/Devel-DProf/dprof/test2_v36
-rw-r--r--cpan/Devel-DProf/dprof/test3_t19
-rw-r--r--cpan/Devel-DProf/dprof/test3_v29
-rw-r--r--cpan/Devel-DProf/dprof/test4_t24
-rw-r--r--cpan/Devel-DProf/dprof/test4_v36
-rw-r--r--cpan/Devel-DProf/dprof/test5_t25
-rw-r--r--cpan/Devel-DProf/dprof/test5_v15
-rw-r--r--cpan/Devel-DProf/dprof/test6_t29
-rw-r--r--cpan/Devel-DProf/dprof/test6_v16
-rw-r--r--cpan/Devel-DProf/dprof/test7_t9
-rw-r--r--cpan/Devel-DProf/dprof/test7_v10
-rw-r--r--cpan/Devel-DProf/dprof/test8_t15
-rw-r--r--cpan/Devel-DProf/dprof/test8_v11
17 files changed, 0 insertions, 400 deletions
diff --git a/cpan/Devel-DProf/dprof/V.pm b/cpan/Devel-DProf/dprof/V.pm
deleted file mode 100644
index e613f6f441..0000000000
--- a/cpan/Devel-DProf/dprof/V.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package V;
-
-use Getopt::Std 'getopts';
-getopts('vp:d:');
-
-require Exporter;
-@ISA = 'Exporter';
-
-@EXPORT = qw( dprofpp $opt_v $results $expected report @results );
-@EXPORT_OK = qw( notok ok $num );
-
-$num = 0;
-$results = $expected = '';
-$perl = $opt_p || $^X;
-$dpp = $opt_d || '../../utils/dprofpp';
-$dpp .= '.com' if $^O eq 'VMS';
-
-print "\nperl: $perl\n" if $opt_v;
-if( ! -f $perl ){ die "Where's Perl?" }
-if( ! -f $dpp ) {
- ($dpp = $^X) =~ s@(^.*)[/|\\].*@$1/dprofpp@;
- die "Where's dprofpp?" if( ! -f $dpp );
-}
-
-sub dprofpp {
- my $switches = shift;
-
- open( D, "$perl \"-I../lib\" $dpp \"$switches\" 2> err |" ) || warn "$0: Can't run. $!\n";
- @results = <D>;
- close D;
-
- open( D, "<err" ) || warn "$0: Can't open: $!\n";
- @err = <D>;
- close D;
- push( @results, @err ) if @err;
-
- $results = qq{@results};
- # ignore Loader (Dyna/Auto etc), leave newline
- $results =~ s/^\w+Loader::import//;
- $results =~ s/\n /\n/gm;
- $results;
-}
-
-sub report {
- $num = shift;
- my $sub = shift;
- my $x;
-
- $x = &$sub;
- $x ? &ok : &notok;
-}
-
-sub ok {
- print "ok $num\n";
-}
-
-sub notok {
- print "not ok $num\n";
- print "\nResult\n{$results}\n";
- print "Expected\n{$expected}\n";
-}
-
-1;
diff --git a/cpan/Devel-DProf/dprof/test1_t b/cpan/Devel-DProf/dprof/test1_t
deleted file mode 100644
index d504cd5536..0000000000
--- a/cpan/Devel-DProf/dprof/test1_t
+++ /dev/null
@@ -1,18 +0,0 @@
-sub foo {
- print "in sub foo\n";
- bar();
-}
-
-sub bar {
- print "in sub bar\n";
-}
-
-sub baz {
- print "in sub baz\n";
- bar();
- foo();
-}
-
-bar();
-baz();
-foo();
diff --git a/cpan/Devel-DProf/dprof/test1_v b/cpan/Devel-DProf/dprof/test1_v
deleted file mode 100644
index 542a503414..0000000000
--- a/cpan/Devel-DProf/dprof/test1_v
+++ /dev/null
@@ -1,24 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::bar
-main::baz
- main::bar
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 1, sub { $expected eq $results };
-
-dprofpp('-TF');
-report 2, sub { $expected eq $results };
-
-dprofpp( '-t' );
-report 3, sub { $expected eq $results };
-
-dprofpp('-tF');
-report 4, sub { $expected eq $results };
diff --git a/cpan/Devel-DProf/dprof/test2_t b/cpan/Devel-DProf/dprof/test2_t
deleted file mode 100644
index edc46c527e..0000000000
--- a/cpan/Devel-DProf/dprof/test2_t
+++ /dev/null
@@ -1,21 +0,0 @@
-sub foo {
- print "in sub foo\n";
- bar();
-}
-
-sub bar {
- print "in sub bar\n";
-}
-
-sub baz {
- print "in sub baz\n";
- bar();
- bar();
- bar();
- foo();
-}
-
-bar();
-bar();
-baz();
-foo();
diff --git a/cpan/Devel-DProf/dprof/test2_v b/cpan/Devel-DProf/dprof/test2_v
deleted file mode 100644
index 8b775b3131..0000000000
--- a/cpan/Devel-DProf/dprof/test2_v
+++ /dev/null
@@ -1,36 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::bar
-main::bar
-main::baz
- main::bar
- main::bar
- main::bar
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 5, sub { $expected eq $results };
-
-dprofpp('-TF');
-report 6, sub { $expected eq $results };
-
-dprofpp( '-t' );
-$expected =
-qq{main::bar (2x)
-main::baz
- main::bar (3x)
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 7, sub { $expected eq $results };
-
-dprofpp('-tF');
-report 8, sub { $expected eq $results };
diff --git a/cpan/Devel-DProf/dprof/test3_t b/cpan/Devel-DProf/dprof/test3_t
deleted file mode 100644
index a5327f4d7a..0000000000
--- a/cpan/Devel-DProf/dprof/test3_t
+++ /dev/null
@@ -1,19 +0,0 @@
-sub foo {
- print "in sub foo\n";
- exit(0);
- bar();
-}
-
-sub bar {
- print "in sub bar\n";
-}
-
-sub baz {
- print "in sub baz\n";
- bar();
- foo();
-}
-
-bar();
-baz();
-foo();
diff --git a/cpan/Devel-DProf/dprof/test3_v b/cpan/Devel-DProf/dprof/test3_v
deleted file mode 100644
index df7543e2b8..0000000000
--- a/cpan/Devel-DProf/dprof/test3_v
+++ /dev/null
@@ -1,29 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$e1 = $expected =
-qq{main::bar
-main::baz
- main::bar
- main::foo
-};
-report 9, sub { $expected eq $results };
-
-dprofpp('-TF');
-$e2 = $expected =
-qq{main::bar
-main::baz
- main::bar
- main::foo
-};
-report 10, sub { $expected eq $results };
-
-dprofpp( '-t' );
-$expected = $e1;
-report 11, sub { 1 };
-
-dprofpp('-tF');
-$expected = $e2;
-report 12, sub { $expected eq $results };
diff --git a/cpan/Devel-DProf/dprof/test4_t b/cpan/Devel-DProf/dprof/test4_t
deleted file mode 100644
index 729968270a..0000000000
--- a/cpan/Devel-DProf/dprof/test4_t
+++ /dev/null
@@ -1,24 +0,0 @@
-sub foo {
- print "in sub foo\n";
- bar();
-}
-
-sub bar {
- print "in sub bar\n";
-}
-
-sub baz {
- print "in sub baz\n";
- bar();
- bar();
- bar();
- foo();
-}
-
-bar();
-
-eval { fork };
-
-bar();
-baz();
-foo();
diff --git a/cpan/Devel-DProf/dprof/test4_v b/cpan/Devel-DProf/dprof/test4_v
deleted file mode 100644
index d9677ff785..0000000000
--- a/cpan/Devel-DProf/dprof/test4_v
+++ /dev/null
@@ -1,36 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::bar
-main::bar
-main::baz
- main::bar
- main::bar
- main::bar
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 13, sub { $expected eq $results };
-
-dprofpp('-TF');
-report 14, sub { $expected eq $results };
-
-dprofpp( '-t' );
-$expected =
-qq{main::bar (2x)
-main::baz
- main::bar (3x)
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 15, sub { $expected eq $results };
-
-dprofpp('-tF');
-report 16, sub { $expected eq $results };
diff --git a/cpan/Devel-DProf/dprof/test5_t b/cpan/Devel-DProf/dprof/test5_t
deleted file mode 100644
index 0b1113757f..0000000000
--- a/cpan/Devel-DProf/dprof/test5_t
+++ /dev/null
@@ -1,25 +0,0 @@
-# Test that dprof doesn't break
-# &bar; used as &bar(@_);
-
-sub foo1 {
- print "in foo1(@_)\n";
- bar(@_);
-}
-sub foo2 {
- print "in foo2(@_)\n";
- &bar;
-}
-sub bar {
- print "in bar(@_)\n";
- if( @_ > 0 ){
- &yeppers;
- }
-}
-sub yeppers {
- print "rest easy\n";
-}
-
-
-&foo1( A );
-&foo2( B );
-
diff --git a/cpan/Devel-DProf/dprof/test5_v b/cpan/Devel-DProf/dprof/test5_v
deleted file mode 100644
index 9e9298c689..0000000000
--- a/cpan/Devel-DProf/dprof/test5_v
+++ /dev/null
@@ -1,15 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::foo1
- main::bar
- main::yeppers
-main::foo2
- main::bar
- main::yeppers
-};
-report 17, sub { $expected eq $results };
-
diff --git a/cpan/Devel-DProf/dprof/test6_t b/cpan/Devel-DProf/dprof/test6_t
deleted file mode 100644
index 7b8bf4a722..0000000000
--- a/cpan/Devel-DProf/dprof/test6_t
+++ /dev/null
@@ -1,29 +0,0 @@
-sub foo {
- my $x;
- my $y;
- print "in sub foo\n";
- for( $x = 1; $x < 100; ++$x ){
- bar();
- for( $y = 1; $y < 100; ++$y ){
- }
- }
-}
-
-sub bar {
- my $x;
- print "in sub bar\n";
- for( $x = 1; $x < 100; ++$x ){
- }
- die "bar exiting";
-}
-
-sub baz {
- print "in sub baz\n";
- eval { bar(); };
- eval { foo(); };
-}
-
-eval { bar(); };
-baz();
-eval { foo(); };
-
diff --git a/cpan/Devel-DProf/dprof/test6_v b/cpan/Devel-DProf/dprof/test6_v
deleted file mode 100644
index 2f651ea794..0000000000
--- a/cpan/Devel-DProf/dprof/test6_v
+++ /dev/null
@@ -1,16 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::bar
-main::baz
- main::bar
- main::foo
- main::bar
-main::foo
- main::bar
-};
-report 18, sub { $expected eq $results };
-
diff --git a/cpan/Devel-DProf/dprof/test7_t b/cpan/Devel-DProf/dprof/test7_t
deleted file mode 100644
index 56dbfd341c..0000000000
--- a/cpan/Devel-DProf/dprof/test7_t
+++ /dev/null
@@ -1,9 +0,0 @@
-BEGIN {
- print "in BEGIN\n";
-}
-
-sub foo {
- print "in sub foo\n";
-}
-
-foo();
diff --git a/cpan/Devel-DProf/dprof/test7_v b/cpan/Devel-DProf/dprof/test7_v
deleted file mode 100644
index 1d19fe5cd5..0000000000
--- a/cpan/Devel-DProf/dprof/test7_v
+++ /dev/null
@@ -1,10 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-T' );
-$expected =
-qq{main::BEGIN
-main::foo
-};
-report 19, sub { $expected eq $results };
diff --git a/cpan/Devel-DProf/dprof/test8_t b/cpan/Devel-DProf/dprof/test8_t
deleted file mode 100644
index 6154c8a530..0000000000
--- a/cpan/Devel-DProf/dprof/test8_t
+++ /dev/null
@@ -1,15 +0,0 @@
-sub foo {
- print "in sub foo\n";
-}
-
-sub bar {
- print "in sub bar\n";
- $^P -= 0x40;
-}
-
-foo();
-$^P -= 0x40;
-foo();
-$^P += 0x40;
-bar();
-$^P += 0x40;
diff --git a/cpan/Devel-DProf/dprof/test8_v b/cpan/Devel-DProf/dprof/test8_v
deleted file mode 100644
index d5de3087fe..0000000000
--- a/cpan/Devel-DProf/dprof/test8_v
+++ /dev/null
@@ -1,11 +0,0 @@
-# perl
-
-use V;
-
-dprofpp( '-t' );
-$expected =
-qq{main::foo (2x)
-main::bar
-};
-
-report 20, sub { $expected eq $results };
View Lorry Controller Status