File: bagrecursion.t

package info (click to toggle)
libtest-deep-perl 0.113-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 464 kB
  • ctags: 254
  • sloc: perl: 2,144; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 241 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
use strict;
use warnings;

use t::std;

# just want to make sure this doesn't go into an infitite recursion

my @methods=(methods(hello=>'world'),methods(goodbye=>'world'));
my $bag_o_methods=bag(@methods);

ok(1, "no inifinite recursion");