<?php require_once "Regexp_Assemble.php"; require_once "testutil.php"; $r = new Regexp_Assemble(); $r->debug(255); /* # 01_insert.t # # Test suite for Regexp::Assemble # # When a series of paths are inserted in an R::A object, they are # stored into tree structure using a crafty blend of arrays and hashes. # # These tests verify that the tokens that are added to the # Regexp::Assemble object are stored correctly. # # The tests here verify to a much greater extent that the tree/hash structure # built up from repeated add() calls produce a structure that the # subsequent coalescing and reduction routines can operate upon correctly. # # copyright (C) 2004-2006 David Landgren use strict; use Regexp::Assemble; use constant permute_testcount => 120 * 5; # permute() has 120 (5!) variants eval qq{use Test::More tests => 50 + permute_testcount}; if( $@ ) { warn "# Test::More not available, no tests performed\n";