Start 2008-07-14T19:57:57
LIB=C:\PlatSDK\Lib\AMD64;C:\PlatSDK\Lib\AMD64\atlmfc
INCLUDE=C:\PlatSDK\Include;C:\PlatSDK\Include\crt;C:\PlatSDK\Include\crt\sys;C:\PlatSDK\Include\mfc;C:\PlatSDK\Include\atl
PATH=C:\PlatSDK\Bin\Win64\x86\AMD64;C:\PlatSDK\Bin;C:\PlatSDK\Bin\WinNT;C:\Perl64\site\bin;C:\Perl64\bin;C:\cygwin\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\PROGRA~2\Perforce\
Going to read C:\cpanfly\var\cpan\Metadata
Database was generated on Mon, 14 Jul 2008 10:02:50 GMT
Running make for F/FG/FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
Checksum for C:\cpanfly\var\cpan\sources\authors\id\F\FG\FGLOCK\Pugs-Compiler-Rule-0.29.tar.gz ok
Pugs-Compiler-Rule-0.29/
Pugs-Compiler-Rule-0.29/Changes
Pugs-Compiler-Rule-0.29/examples/
Pugs-Compiler-Rule-0.29/examples/adder.grammar
Pugs-Compiler-Rule-0.29/examples/adder.input
Pugs-Compiler-Rule-0.29/examples/digits.grammar
Pugs-Compiler-Rule-0.29/examples/digits.input
Pugs-Compiler-Rule-0.29/examples/Grammar.grammar
Pugs-Compiler-Rule-0.29/examples/grammar.input
Pugs-Compiler-Rule-0.29/examples/langs.grammar
Pugs-Compiler-Rule-0.29/examples/langs.input
Pugs-Compiler-Rule-0.29/examples/langs2.grammar
Pugs-Compiler-Rule-0.29/inc/
Pugs-Compiler-Rule-0.29/inc/Module/
Pugs-Compiler-Rule-0.29/inc/Module/Install/
Pugs-Compiler-Rule-0.29/inc/Module/Install/Base.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Can.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Fetch.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Include.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Makefile.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Metadata.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Scripts.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/TestBase.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/Win32.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install/WriteAll.pm
Pugs-Compiler-Rule-0.29/inc/Module/Install.pm
Pugs-Compiler-Rule-0.29/inc/Spiffy.pm
Pugs-Compiler-Rule-0.29/inc/Test/
Pugs-Compiler-Rule-0.29/inc/Test/Base/
Pugs-Compiler-Rule-0.29/inc/Test/Base/Filter.pm
Pugs-Compiler-Rule-0.29/inc/Test/Base.pm
Pugs-Compiler-Rule-0.29/inc/Test/Builder/
Pugs-Compiler-Rule-0.29/inc/Test/Builder/Module.pm
Pugs-Compiler-Rule-0.29/inc/Test/Builder.pm
Pugs-Compiler-Rule-0.29/inc/Test/More.pm
Pugs-Compiler-Rule-0.29/lib/
Pugs-Compiler-Rule-0.29/lib/Pugs/
Pugs-Compiler-Rule-0.29/lib/Pugs/AST/
Pugs-Compiler-Rule-0.29/lib/Pugs/AST/Expression.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/Grammar.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/Regex.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/RegexPerl5.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/Rule.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Compiler/Token.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Grammar/
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Grammar/Perl5.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Parsec.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl5/
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl5/Regex.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl5.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl6/
Pugs-Compiler-Rule-0.29/lib/Pugs/Emitter/Rule/Perl6/Ratchet.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/Base.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/Precedence.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/Rule.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/Rule.pmc
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/Rule2.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Grammar/RulePure.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Common.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Match/
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Match/HsBridge.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Match.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Regex.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Rule.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/StrPos.pm
Pugs-Compiler-Rule-0.29/lib/Pugs/Runtime/Tracer.pm
Pugs-Compiler-Rule-0.29/Makefile.PL
Pugs-Compiler-Rule-0.29/MANIFEST
Pugs-Compiler-Rule-0.29/MANIFEST.SKIP
Pugs-Compiler-Rule-0.29/META.yml
Pugs-Compiler-Rule-0.29/README
Pugs-Compiler-Rule-0.29/t/
Pugs-Compiler-Rule-0.29/t/00-pod-coverage.t
Pugs-Compiler-Rule-0.29/t/00-pod.t
Pugs-Compiler-Rule-0.29/t/01-iterator_engine.t
Pugs-Compiler-Rule-0.29/t/02-grammar.t
Pugs-Compiler-Rule-0.29/t/03-match.t
Pugs-Compiler-Rule-0.29/t/04-compiler-grammar.t
Pugs-Compiler-Rule-0.29/t/04-compiler-regex.t
Pugs-Compiler-Rule-0.29/t/04-compiler-rule.t
Pugs-Compiler-Rule-0.29/t/04-rule.t
Pugs-Compiler-Rule-0.29/t/05-var.t
Pugs-Compiler-Rule-0.29/t/06-subrule.t
Pugs-Compiler-Rule-0.29/t/08-hash.t
Pugs-Compiler-Rule-0.29/t/09-ratchet.t
Pugs-Compiler-Rule-0.29/t/10-regex_perl5.t
Pugs-Compiler-Rule-0.29/t/11-parsec.t
Pugs-Compiler-Rule-0.29/t/11-quantifier.t
Pugs-Compiler-Rule-0.29/t/12-plain_regex.t
Pugs-Compiler-Rule-0.29/t/13-char_classes.t
Pugs-Compiler-Rule-0.29/t/14-mini_perl6.t
Pugs-Compiler-Rule-0.29/t/15-STD.t
Pugs-Compiler-Rule-0.29/t/16-examples.t
Pugs-Compiler-Rule-0.29/t/16-safemode.t
Pugs-Compiler-Rule-0.29/t/16-tracer-examples.t
Pugs-Compiler-Rule-0.29/t/17-tracer.t
Pugs-Compiler-Rule-0.29/t/ast/
Pugs-Compiler-Rule-0.29/t/ast/00-basic.t
Pugs-Compiler-Rule-0.29/t/declare/
Pugs-Compiler-Rule-0.29/t/declare/00-demo.t
Pugs-Compiler-Rule-0.29/t/declare/01-sigspace.t
Pugs-Compiler-Rule-0.29/t/emitter/
Pugs-Compiler-Rule-0.29/t/emitter/00-ratchet.t
Pugs-Compiler-Rule-0.29/t/lib/
Pugs-Compiler-Rule-0.29/t/lib/AST.pm
Pugs-Compiler-Rule-0.29/t/lib/Emitter.pm
Pugs-Compiler-Rule-0.29/t/lib/Regex.pm
Pugs-Compiler-Rule-0.29/t/lib/Util.pm
Pugs-Compiler-Rule-0.29/TODO
Pugs-Compiler-Rule-0.29/tracer/
Pugs-Compiler-Rule-0.29/tracer/jquery.js
Pugs-Compiler-Rule-0.29/tracer/tracer.js
Pugs-Compiler-Rule-0.29/util/
Pugs-Compiler-Rule-0.29/util/compile_p6grammar.pl
Pugs-Compiler-Rule-0.29/util/gen-tracer-view.pl
Pugs-Compiler-Rule-0.29/util/patch-rule-pmc.pl
Pugs-Compiler-Rule-0.29/util/update-rule-pmc
Pugs-Compiler-Rule-0.29/util/update-rule-pmc-obsolete
Pugs-Compiler-Rule-0.29/util/update-tracer-demos
CPAN.pm: Going to build F/FG/FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
>>> C:\Perl64\bin\perl.exe Makefile.PL
In releng mode...
Warning: prerequisite Cache::Cache 1.05 not found.
Checking if your kit is complete...
Looks good
Writing Makefile for Pugs::Compiler::Rule
---- Unsatisfied dependencies detected during ----
---- FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz ----
Cache::Cache [requires]
Running make test
Delayed until after prerequisites
Running test for module 'Cache::Cache'
Running make for D/DC/DCLINTON/Cache-Cache-1.05.tar.gz
Checksum for C:\cpanfly\var\cpan\sources\authors\id\D\DC\DCLINTON\Cache-Cache-1.05.tar.gz ok
Cache-Cache-1.05/
Cache-Cache-1.05/lib/
Cache-Cache-1.05/lib/Cache/
Cache-Cache-1.05/lib/Cache/MemoryCache.pm
Cache-Cache-1.05/lib/Cache/SizeAwareCacheTester.pm
Cache-Cache-1.05/lib/Cache/Cache.pm
Cache-Cache-1.05/lib/Cache/FileCache.pm
Cache-Cache-1.05/lib/Cache/SizeAwareSharedMemoryCache.pm
Cache-Cache-1.05/lib/Cache/CacheMetaData.pm
Cache-Cache-1.05/lib/Cache/BaseCache.pm
Cache-Cache-1.05/lib/Cache/FileBackend.pm
Cache-Cache-1.05/lib/Cache/BaseCacheTester.pm
Cache-Cache-1.05/lib/Cache/SharedMemoryCache.pm
Cache-Cache-1.05/lib/Cache/Object.pm
Cache-Cache-1.05/lib/Cache/SizeAwareMemoryCache.pm
Cache-Cache-1.05/lib/Cache/CacheUtils.pm
Cache-Cache-1.05/lib/Cache/MemoryBackend.pm
Cache-Cache-1.05/lib/Cache/SizeAwareFileCache.pm
Cache-Cache-1.05/lib/Cache/CacheSizer.pm
Cache-Cache-1.05/lib/Cache/SizeAwareCache.pm
Cache-Cache-1.05/lib/Cache/SharedMemoryBackend.pm
Cache-Cache-1.05/lib/Cache/CacheTester.pm
Cache-Cache-1.05/lib/Cache/NullCache.pm
Cache-Cache-1.05/COPYING
Cache-Cache-1.05/t/
Cache-Cache-1.05/t/6_test_size_aware_memory_cache.t
Cache-Cache-1.05/t/4_test_shared_memory_cache.t
Cache-Cache-1.05/t/2_test_memory_cache.t
Cache-Cache-1.05/t/3_test_file_cache.t
Cache-Cache-1.05/t/7_test_size_aware_shared_memory_cache.t
Cache-Cache-1.05/t/5_test_size_aware_file_cache.t
Cache-Cache-1.05/t/1_test_cache_interface.t
Cache-Cache-1.05/MANIFEST
Cache-Cache-1.05/CHANGES
Cache-Cache-1.05/META.yml
Cache-Cache-1.05/DISCLAIMER
Cache-Cache-1.05/CREDITS
Cache-Cache-1.05/STYLE
Cache-Cache-1.05/Makefile.PL
Cache-Cache-1.05/README
CPAN.pm: Going to build D/DC/DCLINTON/Cache-Cache-1.05.tar.gz
>>> C:\Perl64\bin\perl.exe Makefile.PL
Warning: prerequisite Error 0.15 not found.
Checking for IPC::ShareLite... not found
NOTE: Your system does not seem to have IPC::ShareLite installed.
This module is a prerequisite for the SharedMemoryCache
implementations. However, since it is not available on all
platforms, the Cache::Cache module does not list it as an explicit
dependency. If you are able to build IPC::ShareLite (available on
CPAN), please install it now and re run this Makefile.PL.
Automatically disabling the tests for the SharedMemoryCache.
Checking if your kit is complete...
Looks good
Writing Makefile for Cache::Cache
------------------------------------------------------------------
Please be patient while running "make test" as the full test suite
takes roughly two minutes to complete.
------------------------------------------------------------------
---- Unsatisfied dependencies detected during ----
---- DCLINTON/Cache-Cache-1.05.tar.gz ----
Error [requires]
Running make test
Delayed until after prerequisites
Running test for module 'Error'
Running make for S/SH/SHLOMIF/Error-0.17014.tar.gz
Checksum for C:\cpanfly\var\cpan\sources\authors\id\S\SH\SHLOMIF\Error-0.17014.tar.gz ok
Error-0.17014/
Error-0.17014/lib/
Error-0.17014/lib/Error.pm
Error-0.17014/lib/Error/
Error-0.17014/lib/Error/Simple.pm
Error-0.17014/examples/
Error-0.17014/examples/next-in-loop/
Error-0.17014/examples/next-in-loop/Error.pm-eval.pl
Error-0.17014/examples/next-in-loop/Error.pm-next-out-of-catch.pl
Error-0.17014/examples/next-in-loop/Error.pm-next-label.pl
Error-0.17014/examples/next-in-loop/README
Error-0.17014/examples/next-in-loop/Error.pm-next.pl
Error-0.17014/examples/warndie.pl
Error-0.17014/examples/example.pl
Error-0.17014/t/
Error-0.17014/t/09dollar-at.t
Error-0.17014/t/07try-in-obj-destructor.t
Error-0.17014/t/04use-base-Error-Simple.t
Error-0.17014/t/12wrong-error-var.t
Error-0.17014/t/11rethrow.t
Error-0.17014/t/01throw.t
Error-0.17014/t/08warndie.t
Error-0.17014/t/10throw-in-catch.t
Error-0.17014/t/pod-coverage.t
Error-0.17014/t/pod.t
Error-0.17014/t/03throw-non-Error.t
Error-0.17014/t/05text-errors-with-file-handles.t
Error-0.17014/t/13except-arg0.t
Error-0.17014/t/02order.t
Error-0.17014/t/lib/
Error-0.17014/t/lib/MyDie.pm
Error-0.17014/t/06customize-text-throw.t
Error-0.17014/MANIFEST
Error-0.17014/inc/
Error-0.17014/inc/Test/
Error-0.17014/inc/Test/Run/
Error-0.17014/inc/Test/Run/Builder.pm
Error-0.17014/META.yml
Error-0.17014/ChangeLog
Error-0.17014/README
Error-0.17014/Makefile.PL
Error-0.17014/Build.PL
CPAN.pm: Going to build S/SH/SHLOMIF/Error-0.17014.tar.gz
>>> C:\Perl64\bin\perl.exe Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for Error
>>> nmake
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
cp lib/Error.pm blib\lib\Error.pm
cp lib/Error/Simple.pm blib\lib\Error\Simple.pm
SHLOMIF/Error-0.17014.tar.gz
nmake -- OK
Running make test
>>> nmake test TEST_VERBOSE=1
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
C:\Perl64\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t
t/01throw............................1..4
ok 1
ok 2
ok 3
ok 4
ok
t/02order............................1..6
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok
t/03throw-non-Error..................1..2
ok 1 - Testing for thrown exception
ok 2 - No Errors caught.
ok
t/04use-base-Error-Simple............1..1
ok 1 - Testing that the use base worked.
ok
t/05text-errors-with-file-handles....1..4
ok 1 - Not MyError::Foo
ok 2 - Testing
ok 3 - Testing for correct line number
ok 4 - Testing for correct module
ok
t/06customize-text-throw.............1..3
ok 1 - Error was auto-converted to Error::Simple
ok 2 - Error was auto-converted to MyError::Bar
ok 3 - Text of the error is correct
ok
t/07try-in-obj-destructor............1..1
ok 1 - Testing that the excpetion is not trampeled
ok
t/08warndie..........................1..21
ok 1 - Loaded
ok 2 - Test framework STDERR
ok 3 - Test framework felloffcode
ok 4 - warn \n-terminated STDERR
ok 5 - warn \n-terminated felloffcode
ok 6 - warn unterminated STDERR
ok 7 - warn unterminated felloffcode
ok 8 - die \n-terminated STDERR
ok 9 - die \n-terminated felloffcode
ok 10 - die unterminated STDERR
ok 11 - die unterminated felloffcode
ok 12 - Error STDOUT
ok 13 - Error felloffcode
ok 14 - Custom warn test STDERR
ok 15 - Custom warn test felloffcode
ok 16 - Custom die test STDERR
ok 17 - Custom die test felloffcode
ok 18 - Custom warn STDERR
ok 19 - Custom warn felloffcode
ok 20 - Custom die STDERR
ok 21 - Custom die felloffcode
ok
t/09dollar-at........................1..8
ok 1 - defined( $_[0] ) after throw/catch
ok 2 - defined( $@ ) after throw/catch
ok 3 - $_[0]->isa( "Error::Simple" ) after throw/catch
ok 4 - $@->isa( "Error::Simple" ) after throw/catch
ok 5 - defined( $_[0] ) after throw/otherwise
ok 6 - defined( $@ ) after throw/otherwise
ok 7 - $_[0]->isa( "Error::Simple" ) after throw/otherwise
ok 8 - $@->isa( "Error::Simple" ) after throw/otherwise
ok
t/10throw-in-catch...................1..2
ok 1 - Error thrown in the catch clause is registered
ok 2 - Error thrown in the otherwise clause is registered
ok
t/11rethrow..........................1..4
ok 1 - Error rethrown
ok 2 - Thrown Error::Simple
ok 3 - die foobar
ok 4 - throw Error::Simple
ok
t/12wrong-error-var..................1..2
ok 1 - Checking that eval { ... } is sane
# Error::THROWN = This is caught by eval, not by try. at t/12wrong-error-var.t line 12.
# Error::THROWN =
# E = This is a simple 'die' exception. at t/12wrong-error-var.t line 22.
ok 2 - Checking that the argument to otherwise is the thrown exception
ok
t/13except-arg0......................1..2
ok 1 - defined( $_[0] ) after throw/except
ok 2 - $_[0]->isa( "Error::Simple" ) after throw/except
ok
t/pod-coverage.......................1..2
ok 1 - Pod coverage on Error
ok 2 - Pod coverage on Error::Simple
ok
t/pod................................1..2
ok 1 - blib\lib\Error.pm
ok 2 - blib\lib\Error\Simple.pm
ok
All tests successful.
Files=15, Tests=64, 4 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
SHLOMIF/Error-0.17014.tar.gz
nmake test TEST_VERBOSE=1 -- OK
Shlomi Fish <shlomif@iglu.org.il>
Error/exception handling in an OO-ish way
>>> (cd C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE && tar cvf - Error-0.17014.ppd blib) | gzip -c >C:/cpanfly/var/REPO/S/SH/SHLOMIF/Error-0.17014.tar.gz
Error-0.17014.ppd
blib/
blib/lib/
blib/lib/Error/
blib/lib/Error/Simple.pm
blib/lib/Error.pm
>>> mv C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/Error-0.17014.ppd C:/cpanfly/var/REPO/S/SH/SHLOMIF
Running make for D/DC/DCLINTON/Cache-Cache-1.05.tar.gz
Prepending C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc
Prepending C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'make'
CPAN.pm: Going to build D/DC/DCLINTON/Cache-Cache-1.05.tar.gz
>>> nmake
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
cp lib/Cache/Object.pm blib\lib\Cache\Object.pm
cp lib/Cache/MemoryCache.pm blib\lib\Cache\MemoryCache.pm
cp lib/Cache/SizeAwareMemoryCache.pm blib\lib\Cache\SizeAwareMemoryCache.pm
cp lib/Cache/SizeAwareCacheTester.pm blib\lib\Cache\SizeAwareCacheTester.pm
cp lib/Cache/Cache.pm blib\lib\Cache\Cache.pm
cp lib/Cache/FileCache.pm blib\lib\Cache\FileCache.pm
cp lib/Cache/CacheUtils.pm blib\lib\Cache\CacheUtils.pm
cp lib/Cache/SizeAwareFileCache.pm blib\lib\Cache\SizeAwareFileCache.pm
cp lib/Cache/MemoryBackend.pm blib\lib\Cache\MemoryBackend.pm
cp lib/Cache/SizeAwareSharedMemoryCache.pm blib\lib\Cache\SizeAwareSharedMemoryCache.pm
cp lib/Cache/CacheMetaData.pm blib\lib\Cache\CacheMetaData.pm
cp lib/Cache/CacheSizer.pm blib\lib\Cache\CacheSizer.pm
cp lib/Cache/BaseCache.pm blib\lib\Cache\BaseCache.pm
cp lib/Cache/FileBackend.pm blib\lib\Cache\FileBackend.pm
cp lib/Cache/BaseCacheTester.pm blib\lib\Cache\BaseCacheTester.pm
cp lib/Cache/SizeAwareCache.pm blib\lib\Cache\SizeAwareCache.pm
cp lib/Cache/SharedMemoryBackend.pm blib\lib\Cache\SharedMemoryBackend.pm
cp lib/Cache/SharedMemoryCache.pm blib\lib\Cache\SharedMemoryCache.pm
cp lib/Cache/CacheTester.pm blib\lib\Cache\CacheTester.pm
cp lib/Cache/NullCache.pm blib\lib\Cache\NullCache.pm
DCLINTON/Cache-Cache-1.05.tar.gz
nmake -- OK
Prepending C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'test'
Running make test
>>> nmake test TEST_VERBOSE=1
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
C:\Perl64\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/1_test_cache_interface.t t/2_test_memory_cache.t t/3_test_file_cache.t t/5_test_size_aware_file_cache.t t/6_test_size_aware_memory_cache.t
t/1_test_cache_interface............1..1
ok 1
ok
t/2_test_memory_cache...............1..35
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32
ok 33
ok 34
ok 35
ok
t/3_test_file_cache.................1..35
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32
ok 33
ok 34
ok 35
ok
t/5_test_size_aware_file_cache......1..48
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32
ok 33
ok 34
ok 35
ok 36
ok 37
ok 38
ok 39
ok 40
ok 41
ok 42
ok 43
ok 44
ok 45
ok 46
ok 47
ok 48
ok
t/6_test_size_aware_memory_cache....1..48
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32
ok 33
ok 34
ok 35
ok 36
ok 37
ok 38
ok 39
ok 40
ok 41
ok 42
ok 43
ok 44
ok 45
ok 46
ok 47
ok 48
ok
All tests successful.
Files=5, Tests=167, 88 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
DCLINTON/Cache-Cache-1.05.tar.gz
nmake test TEST_VERBOSE=1 -- OK
Picked up abstract from lib/Cache/Cache.pm
DeWitt Clinton <dewitt@unto.net>
the Cache interface.
>>> (cd C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc && tar cvf - Cache-Cache-1.05.ppd blib) | gzip -c >C:/cpanfly/var/REPO/D/DC/DCLINTON/Cache-Cache-1.05.tar.gz
Cache-Cache-1.05.ppd
blib/
blib/lib/
blib/lib/Cache/
blib/lib/Cache/BaseCache.pm
blib/lib/Cache/BaseCacheTester.pm
blib/lib/Cache/Cache.pm
blib/lib/Cache/CacheMetaData.pm
blib/lib/Cache/CacheSizer.pm
blib/lib/Cache/CacheTester.pm
blib/lib/Cache/CacheUtils.pm
blib/lib/Cache/FileBackend.pm
blib/lib/Cache/FileCache.pm
blib/lib/Cache/MemoryBackend.pm
blib/lib/Cache/MemoryCache.pm
blib/lib/Cache/NullCache.pm
blib/lib/Cache/Object.pm
blib/lib/Cache/SharedMemoryBackend.pm
blib/lib/Cache/SharedMemoryCache.pm
blib/lib/Cache/SizeAwareCache.pm
blib/lib/Cache/SizeAwareCacheTester.pm
blib/lib/Cache/SizeAwareFileCache.pm
blib/lib/Cache/SizeAwareMemoryCache.pm
blib/lib/Cache/SizeAwareSharedMemoryCache.pm
>>> mv C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/Cache-Cache-1.05.ppd C:/cpanfly/var/REPO/D/DC/DCLINTON
Running make for F/FG/FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
Prepending C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/arch C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/lib C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory C:\cpanfly\var\cpan\build\Pugs-Compiler-Rule-0.29-GHSh1x
Prepending C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/arch C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/lib C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'make'
CPAN.pm: Going to build F/FG/FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
>>> nmake
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
cp lib/Pugs/Emitter/Rule/Parsec.pm blib\lib\Pugs\Emitter\Rule\Parsec.pm
cp lib/Pugs/Grammar/Rule2.pm blib\lib\Pugs\Grammar\Rule2.pm
cp lib/Pugs/Runtime/Match.pm blib\lib\Pugs\Runtime\Match.pm
cp lib/Pugs/Compiler/Rule.pm blib\lib\Pugs\Compiler\Rule.pm
cp lib/Pugs/Emitter/Rule/Perl5/CharClass.pm blib\lib\Pugs\Emitter\Rule\Perl5\CharClass.pm
cp lib/Pugs/Grammar/Rule.pm blib\lib\Pugs\Grammar\Rule.pm
cp lib/Pugs/Emitter/Rule/Perl5.pm blib\lib\Pugs\Emitter\Rule\Perl5.pm
cp lib/Pugs/Grammar/Precedence.pm blib\lib\Pugs\Grammar\Precedence.pm
cp lib/Pugs/Emitter/Grammar/Perl5.pm blib\lib\Pugs\Emitter\Grammar\Perl5.pm
cp lib/Pugs/Emitter/Rule/Perl5/Regex.pm blib\lib\Pugs\Emitter\Rule\Perl5\Regex.pm
cp lib/Pugs/Grammar/Base.pm blib\lib\Pugs\Grammar\Base.pm
cp lib/Pugs/Runtime/Rule.pm blib\lib\Pugs\Runtime\Rule.pm
cp lib/Pugs/Compiler/Grammar.pm blib\lib\Pugs\Compiler\Grammar.pm
cp lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm blib\lib\Pugs\Emitter\Rule\Perl5\Ratchet.pm
cp lib/Pugs/Compiler/Regex.pm blib\lib\Pugs\Compiler\Regex.pm
cp lib/Pugs/Runtime/Match/HsBridge.pm blib\lib\Pugs\Runtime\Match\HsBridge.pm
cp lib/Pugs/Runtime/StrPos.pm blib\lib\Pugs\Runtime\StrPos.pm
cp lib/Pugs/Runtime/Common.pm blib\lib\Pugs\Runtime\Common.pm
cp lib/Pugs/AST/Expression.pm blib\lib\Pugs\AST\Expression.pm
cp lib/Pugs/Runtime/Tracer.pm blib\lib\Pugs\Runtime\Tracer.pm
cp lib/Pugs/Grammar/Rule.pmc blib\lib\Pugs\Grammar\Rule.pmc
cp lib/Pugs/Runtime/Regex.pm blib\lib\Pugs\Runtime\Regex.pm
cp lib/Pugs/Emitter/Rule/Perl6/Ratchet.pm blib\lib\Pugs\Emitter\Rule\Perl6\Ratchet.pm
cp lib/Pugs/Compiler/Token.pm blib\lib\Pugs\Compiler\Token.pm
cp lib/Pugs/Grammar/RulePure.pm blib\lib\Pugs\Grammar\RulePure.pm
cp lib/Pugs/Compiler/RegexPerl5.pm blib\lib\Pugs\Compiler\RegexPerl5.pm
C:\Perl64\bin\perl.exe -Iinc -MExtUtils::Command -e cp util/compile_p6grammar.pl blib\script\compile_p6grammar.pl
pl2bat.bat blib\script\compile_p6grammar.pl
FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
nmake -- OK
Prepending C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/arch C:\cpanfly\var\cpan\build\Cache-Cache-1.05-cOvlFc/blib/lib C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/arch C:\cpanfly\var\cpan\build\Error-0.17014-HtwQiE/blib/lib to PERL5LIB for 'test'
Running make test
>>> nmake test TEST_VERBOSE=1
Microsoft (R) Program Maintenance Utility Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.
Skip blib\lib\Pugs\Emitter\Rule\Parsec.pm (unchanged)
Skip blib\lib\Pugs\Grammar\Rule2.pm (unchanged)
Skip blib\lib\Pugs\Runtime\Match.pm (unchanged)
Skip blib\lib\Pugs\Compiler\Rule.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Rule\Perl5\CharClass.pm (unchanged)
Skip blib\lib\Pugs\Grammar\Rule.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Rule\Perl5.pm (unchanged)
Skip blib\lib\Pugs\Grammar\Precedence.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Grammar\Perl5.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Rule\Perl5\Regex.pm (unchanged)
Skip blib\lib\Pugs\Grammar\Base.pm (unchanged)
Skip blib\lib\Pugs\Runtime\Rule.pm (unchanged)
Skip blib\lib\Pugs\Compiler\Grammar.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Rule\Perl5\Ratchet.pm (unchanged)
Skip blib\lib\Pugs\Compiler\Regex.pm (unchanged)
Skip blib\lib\Pugs\Runtime\Match\HsBridge.pm (unchanged)
Skip blib\lib\Pugs\Runtime\StrPos.pm (unchanged)
Skip blib\lib\Pugs\Runtime\Common.pm (unchanged)
Skip blib\lib\Pugs\AST\Expression.pm (unchanged)
Skip blib\lib\Pugs\Runtime\Tracer.pm (unchanged)
Skip blib\lib\Pugs\Grammar\Rule.pmc (unchanged)
Skip blib\lib\Pugs\Runtime\Regex.pm (unchanged)
Skip blib\lib\Pugs\Emitter\Rule\Perl6\Ratchet.pm (unchanged)
Skip blib\lib\Pugs\Compiler\Token.pm (unchanged)
Skip blib\lib\Pugs\Grammar\RulePure.pm (unchanged)
Skip blib\lib\Pugs\Compiler\RegexPerl5.pm (unchanged)
C:\Perl64\bin\perl.exe -Iinc -MExtUtils::Command -e cp util/compile_p6grammar.pl blib\script\compile_p6grammar.pl
pl2bat.bat blib\script\compile_p6grammar.pl
C:\Perl64\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib\lib', 'blib\arch')" t/*.t t/*/*.t
t/00-pod-coverage........1..0 # Skip We know we don't have enough POD :(
skipped
all skipped: We know we don't have enough POD :(
t/00-pod.................1..26
ok 1 - blib\script\compile_p6grammar.pl
ok 2 - blib\lib\Pugs\AST\Expression.pm
ok 3 - blib\lib\Pugs\Compiler\Grammar.pm
ok 4 - blib\lib\Pugs\Compiler\Regex.pm
ok 5 - blib\lib\Pugs\Compiler\RegexPerl5.pm
ok 6 - blib\lib\Pugs\Compiler\Rule.pm
ok 7 - blib\lib\Pugs\Compiler\Token.pm
ok 8 - blib\lib\Pugs\Grammar\Base.pm
ok 9 - blib\lib\Pugs\Grammar\Precedence.pm
ok 10 - blib\lib\Pugs\Grammar\Rule.pm
ok 11 - blib\lib\Pugs\Grammar\Rule2.pm
ok 12 - blib\lib\Pugs\Grammar\RulePure.pm
ok 13 - blib\lib\Pugs\Runtime\Common.pm
ok 14 - blib\lib\Pugs\Runtime\Match.pm
ok 15 - blib\lib\Pugs\Runtime\Regex.pm
ok 16 - blib\lib\Pugs\Runtime\Rule.pm
ok 17 - blib\lib\Pugs\Runtime\StrPos.pm
ok 18 - blib\lib\Pugs\Runtime\Tracer.pm
ok 19 - blib\lib\Pugs\Emitter\Grammar\Perl5.pm
ok 20 - blib\lib\Pugs\Emitter\Rule\Parsec.pm
ok 21 - blib\lib\Pugs\Emitter\Rule\Perl5.pm
ok 22 - blib\lib\Pugs\Runtime\Match\HsBridge.pm
ok 23 - blib\lib\Pugs\Emitter\Rule\Perl5\CharClass.pm
ok 24 - blib\lib\Pugs\Emitter\Rule\Perl5\Ratchet.pm
ok 25 - blib\lib\Pugs\Emitter\Rule\Perl5\Regex.pm
ok 26 - blib\lib\Pugs\Emitter\Rule\Perl6\Ratchet.pm
ok
t/01-iterator_engine.....1..58
ok 1 - use Pugs::Runtime::Regex;
ok 2 - a =~ /a/ \#1
ok 3 - tail is ok
ok 4 - c =~ /a/ \#2
ok 5 - anchored match
ok 6 - /[a|c]+?/ \#1
ok 7 - tail is ok
ok 8 - /[a|c]+?/ \#2
ok 9 - tail is ok
ok 10 - /[a|c]+?/ \#3
ok 11 - tail is ok
ok 12 - /[a|ab]/ multi-match continuation state \#0
ok 13 - /[a|ab]/ multi-match continuation state \#1
ok 14 - /[a|ab][b|bb]/ continuation state \#0
ok 15 - state \#1
ok 16 - state \#2
ok 17 - state \#3
ok 18 - rule 'a*' is a coderef
ok 19 - /a*/
ok 20
ok 21 - /a*/
ok 22
ok 23 - matches 0 occurrences
ok 24 - /a+/
ok 25
ok 26 - rejects unmatching text
ok 27 - /a**{3..*}/
ok 28 - /a**{3..*}/
ok 29 - rejects unmatching text
ok 30 - /[a|c]+ab/ with backtracking
ok 31 - all the chars accepted
ok 32 - /[a|c]+?/
ok 33 - tail is ok
ok 34
ok 35
ok 36 - /[a|c]+?cb/ with backtracking
ok 37
ok 38
ok 39 - /a[|a]?/ \#1
ok 40
ok 41 - /a[|a]?/ \#2
ok 42
ok 43 - /a[|a]?/ \#3
ok 44
ok 45 - /a[|a]*/ \#1
ok 46
ok 47 - /a[|a]*/ \#2
ok 48
ok 49 - /a[|a]*/ \#3
ok 50
ok 51 - /[a|c]**{2..4}?cb/ with backtracking
ok 52 - /[a|c]**{2..4}?cb/ with range
ok 53 - a**{2..2}cb
ok 54 - c**{2..2}cb
ok 55 - [a|c]**{3..3}cb
ok 56 - /[a|c]**{1..2}?cb/ with bad range fails
ok 57 - /[a|c]**{5..7}?cb/ with bad range fails
ok 58 - empty concat
ok
t/02-grammar.............1..1
ok 1 - use Pugs::Grammar::Rule;
ok
t/03-match...............1..54
ok 1 - use Pugs::Compiler::Regex;
ok 2 - use Pugs::Grammar::Base;
ok 3 - boolean true
ok 4 - stringify 1
ok 5 - stringify 2
ok 6 - stringify 4
ok 7 - stringify 5
ok 8 - stringify 6
ok 9 - stringify 7
ok 10 - stringify 1
ok 11 - stringify 1
ok 12 - stringify 1
ok 13 - stringify 1
ok 14 - stringify 2
ok 15 - stringify 3
ok 16
ok 17 - stringify 1
ok 18 - stringify 2
ok 19 - stringify 3
ok 20 - return match 1
ok 21 - return match 2
ok 22 - return match 3
ok 23 - return match 4
ok 24 - concat stringify
ok 25 - two few chars
ok 26 - true match
ok 27 - pretended we matched "bar"
ok 28 - true match
ok 29 - returns correct struct
ok 30 - true match
ok 31 - returns correct struct
ok 32 - true match
ok 33 - returns correct struct
ok 34 - return match
ok 35 - stringify
ok 36 - hashify
ok 37 - hashify
ok 38 - numify
ok 39 - boolean true
ok 40 - match->from
ok 41 - match->to
ok 42 - boolean true (non-anchored match)
ok 43 - match->from
ok 44 - match->to
ok 45 - boolean false
ok 46 - use Pugs::Compiler::Rule;
ok 47 - use Pugs::Runtime::Match;
ok 48 - boolean true
ok 49 - match->from
ok 50 - match->to
ok 51 - boolean true (non-anchored match)
ok 52 - match->from
ok 53 - match->to
ok 54 - boolean false
ok
t/04-compiler-grammar....ok 1 - obj ok
ok 2 - The object isa Pugs::Compiler::Grammar
ok 3 - p5 code okay
ok 4 - no error while eval
ok 5 - matched
ok 6 - capture okay
ok 7 - capture okay
ok 8
ok 9 - The object isa Pugs::Compiler::Grammar
ok 10 - p5 code okay
grammar: // package MyLang;
use base 'Pugs::Grammar::Base';
use Pugs::Runtime::Match;
use Pugs::Runtime::Regex;
use Pugs::Runtime::Tracer ();
# token def
*def =
##
## sigspace: 0
## ratchet: 1
do { my $rule; $rule = sub {
my $grammar = $_[0];
my $s = $_[1];
$_[3] = $_[2] unless defined $_[3]; # backwards compat
no warnings 'substr', 'uninitialized', 'syntax';
my %pad;
my $m;
my $bool;
my @pos;
# XXX :pos(X) takes the precedence over :continue ?
if (defined $_[3]{p}) {
push @pos, $_[3]{p} || 0;
} elsif ($_[3]{continue}) {
push @pos, (pos($_[1]) || 0) .. length($s);
} else {
push @pos, 0..length($s);
}
for my $pos ( @pos ) {
my %index;
my @match;
my %named;
$bool = 1;
$named{KEY} = $_[3]{KEY} if exists $_[3]{KEY};
$m = Pugs::Runtime::Match->new( {
str => \$s, from => \(0+$pos), to => \($pos),
bool => \$bool, match => \@match, named => \%named, capture => undef,
} );
{
my $prior = $::_V6_PRIOR_;
local $::_V6_PRIOR_ = $prior;
$bool = 0 unless
##
## pos: 32 67
(
##
## pos: 32 39
( ( $pad{I1410} = $pos or 1 ) &&
##
## pos: 32 38
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->type( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
if ( $match ) { $named{'type'} = $match;
$pos = $match->to;
1
}
else { 0 }
}
##
|| ( ( $pos = $pad{I1410} ) && 0 ) )
##
&&
##
## pos: 39 45
( ( $pad{I1411} = $pos or 1 ) &&
##
## pos: 39 44
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ws( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
my $bool = (!$match != 1);
$pos = $match->to if $bool;
$match;
}
##
|| ( ( $pos = $pad{I1411} ) && 0 ) )
##
&&
##
## pos: 45 56
( ( $pad{I1412} = $pos or 1 ) &&
##
## pos: 45 55
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->var_list( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
if ( $match ) { $named{'var_list'} = $match;
$pos = $match->to;
1
}
else { 0 }
}
##
|| ( ( $pos = $pad{I1412} ) && 0 ) )
##
&&
##
## pos: 56 63
(
( ( $pad{I1413} = $pos or 1 ) &&
##
## pos: 56 61
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ws( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
my $bool = (!$match != 1);
$pos = $match->to if $bool;
$match;
}
##
|| ( ( $pos = $pad{I1413} ) && 0 ) )
|| ( $bool = 1 )
)
##
&&
##
## pos: 63 67
( ( $pad{I1414} = $pos or 1 ) &&
##
## pos: 63 66
( ( substr( $s, $pos, 1 ) eq ';' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1414} ) && 0 ) )
##
)
##
;
}
if ( $bool ) {
my $prior = $::_V6_PRIOR_;
$::_V6_PRIOR_ = sub {
local $main::_V6_PRIOR_ = $prior;
$rule->(@_);
};
#warn "pos2 = ", $pos, "\n";
pos($_[1]) = $pos if $_[3]{continue};
last;
}
} # /for
$::_V6_MATCH_ = $m;
return $m;
} }
##
;
# token type
*type =
##
## sigspace: 0
## ratchet: 1
do { my $rule; $rule = sub {
my $grammar = $_[0];
my $s = $_[1];
$_[3] = $_[2] unless defined $_[3]; # backwards compat
no warnings 'substr', 'uninitialized', 'syntax';
my %pad;
my $m;
my $bool;
my @pos;
# XXX :pos(X) takes the precedence over :continue ?
if (defined $_[3]{p}) {
push @pos, $_[3]{p} || 0;
} elsif ($_[3]{continue}) {
push @pos, (pos($_[1]) || 0) .. length($s);
} else {
push @pos, 0..length($s);
}
for my $pos ( @pos ) {
my %index;
my @match;
my %named;
$bool = 1;
$named{KEY} = $_[3]{KEY} if exists $_[3]{KEY};
$m = Pugs::Runtime::Match->new( {
str => \$s, from => \(0+$pos), to => \($pos),
bool => \$bool, match => \@match, named => \%named, capture => undef,
} );
{
my $prior = $::_V6_PRIOR_;
local $::_V6_PRIOR_ = $prior;
$bool = 0 unless
##
## pos: 82 110
(
( $pad{I1415} = $pos or 1 )
&& (
##
## pos: 82 86
(
##
## pos: 82 83
( ( substr( $s, $pos, 1 ) eq 'i' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 83 84
( ( substr( $s, $pos, 1 ) eq 'n' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 84 86
( ( $pad{I1416} = $pos or 1 ) &&
##
## pos: 84 85
( ( substr( $s, $pos, 1 ) eq 't' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1416} ) && 0 ) )
##
)
##
)
|| (
( ( $bool = 1 ) && ( $pos = $pad{I1415} ) or 1 )
&& ##
## pos: 87 94
(
##
## pos: 87 89
( ( $pad{I1417} = $pos or 1 ) &&
##
## pos: 88 89
( ( substr( $s, $pos, 1 ) eq 'f' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1417} ) && 0 ) )
##
&&
##
## pos: 89 90
( ( substr( $s, $pos, 1 ) eq 'l' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 90 91
( ( substr( $s, $pos, 1 ) eq 'o' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 91 92
( ( substr( $s, $pos, 1 ) eq 'a' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 92 94
( ( $pad{I1418} = $pos or 1 ) &&
##
## pos: 92 93
( ( substr( $s, $pos, 1 ) eq 't' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1418} ) && 0 ) )
##
)
##
)
|| (
( ( $bool = 1 ) && ( $pos = $pad{I1415} ) or 1 )
&& ##
## pos: 95 103
(
##
## pos: 95 97
( ( $pad{I1419} = $pos or 1 ) &&
##
## pos: 96 97
( ( substr( $s, $pos, 1 ) eq 'd' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1419} ) && 0 ) )
##
&&
##
## pos: 97 98
( ( substr( $s, $pos, 1 ) eq 'o' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 98 99
( ( substr( $s, $pos, 1 ) eq 'u' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 99 100
( ( substr( $s, $pos, 1 ) eq 'b' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 100 101
( ( substr( $s, $pos, 1 ) eq 'l' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 101 103
( ( $pad{I1420} = $pos or 1 ) &&
##
## pos: 101 102
( ( substr( $s, $pos, 1 ) eq 'e' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1420} ) && 0 ) )
##
)
##
)
|| (
( ( $bool = 1 ) && ( $pos = $pad{I1415} ) or 1 )
&& ##
## pos: 104 110
(
##
## pos: 104 106
( ( $pad{I1421} = $pos or 1 ) &&
##
## pos: 105 106
( ( substr( $s, $pos, 1 ) eq 'c' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1421} ) && 0 ) )
##
&&
##
## pos: 106 107
( ( substr( $s, $pos, 1 ) eq 'h' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 107 108
( ( substr( $s, $pos, 1 ) eq 'a' )
? ( $pos += 1 or 1 )
: 0
)
##
&&
##
## pos: 108 110
( ( $pad{I1422} = $pos or 1 ) &&
##
## pos: 108 109
( ( substr( $s, $pos, 1 ) eq 'r' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1422} ) && 0 ) )
##
)
##
)
)
##
;
}
if ( $bool ) {
my $prior = $::_V6_PRIOR_;
$::_V6_PRIOR_ = sub {
local $main::_V6_PRIOR_ = $prior;
$rule->(@_);
};
#warn "pos2 = ", $pos, "\n";
pos($_[1]) = $pos if $_[3]{continue};
last;
}
} # /for
$::_V6_MATCH_ = $m;
return $m;
} }
##
;
# token var_list
*var_list =
##
## sigspace: 0
## ratchet: 1
do { my $rule; $rule = sub {
my $grammar = $_[0];
my $s = $_[1];
$_[3] = $_[2] unless defined $_[3]; # backwards compat
no warnings 'substr', 'uninitialized', 'syntax';
my %pad;
my $m;
my $bool;
my @pos;
# XXX :pos(X) takes the precedence over :continue ?
if (defined $_[3]{p}) {
push @pos, $_[3]{p} || 0;
} elsif ($_[3]{continue}) {
push @pos, (pos($_[1]) || 0) .. length($s);
} else {
push @pos, 0..length($s);
}
for my $pos ( @pos ) {
my %index;
my @match;
my %named;
$bool = 1;
$named{KEY} = $_[3]{KEY} if exists $_[3]{KEY};
$m = Pugs::Runtime::Match->new( {
str => \$s, from => \(0+$pos), to => \($pos),
bool => \$bool, match => \@match, named => \%named, capture => undef,
} );
{
my $prior = $::_V6_PRIOR_;
local $::_V6_PRIOR_ = $prior;
$bool = 0 unless
##
## pos: 129 173
(
##
## pos: 129 142
(
( ( $pad{I1423} = $pos or 1 ) &&
##
## pos: 129 136
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ident( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
if ( $match ) { push @{$named{'ident'}}, $match;
$pos = $match->to;
1
}
else { 0 }
}
##
|| ( ( $pos = $pad{I1423} ) && 0 ) )
)
##
&&
##
## pos: 142 149
(
( ( $pad{I1424} = $pos or 1 ) &&
##
## pos: 142 147
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ws( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
my $bool = (!$match != 1);
$pos = $match->to if $bool;
$match;
}
##
|| ( ( $pos = $pad{I1424} ) && 0 ) )
|| ( $bool = 1 )
)
##
&&
##
## pos: 149 173
do { while (
( ( $pad{I1425} = $pos or 1 ) &&
##
## pos: 150 170
(
##
## pos: 150 155
( ( $pad{I1426} = $pos or 1 ) &&
##
## pos: 151 154
( ( substr( $s, $pos, 1 ) eq ',' )
? ( $pos += 1 or 1 )
: 0
)
##
|| ( ( $pos = $pad{I1426} ) && 0 ) )
##
&&
##
## pos: 155 162
(
( ( $pad{I1427} = $pos or 1 ) &&
##
## pos: 155 160
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ws( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
my $bool = (!$match != 1);
$pos = $match->to if $bool;
$match;
}
##
|| ( ( $pos = $pad{I1427} ) && 0 ) )
|| ( $bool = 1 )
)
##
&&
##
## pos: 162 170
( ( $pad{I1428} = $pos or 1 ) &&
##
## pos: 162 169
do {
my $prior = $::_V6_PRIOR_;
my $match =
$grammar->ident( $s, { p => $pos, positionals => [ ], args => {}, }, undef );
$::_V6_PRIOR_ = $prior;
if ( $match ) { push @{$named{'ident'}}, $match;
$pos = $match->to;
1
}
else { 0 }
}
##
|| ( ( $pos = $pad{I1428} ) && 0 ) )
##
)
##
|| ( ( $pos = $pad{I1425} ) && 0 ) )) {}; $bool = 1 }
##
)
##
;
}
if ( $bool ) {
my $prior = $::_V6_PRIOR_;
$::_V6_PRIOR_ = sub {
local $main::_V6_PRIOR_ = $prior;
$rule->(@_);
};
#warn "pos2 = ", $pos, "\n";
pos($_[1]) = $pos if $_[3]{continue};
last;
}
} # /for
$::_V6_MATCH_ = $m;
return $m;
} }
##
;
1;
//
ok 11 - matched
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17 - My::C's type okay
ok 18 - My::C's var_list okay
#
ok 19 - My::VB's var_list okay
#
ok 20 - eval ok
ok 21 - matched
ok 22
ok 23 - closure works
ok 24 - perl 5 generated
ok 25 - eval ok
ok 26 - matched
ok 27 - capture ok
ok 28 - perl 5 generated
ok 29 - eval ok
ok 30 - matched
ok 31 - capture ok
ok 32 - capture ok
ok 33 - matched
ok 34 - capture ok
ok 35 - capture ok
1..35
ok
t/04-compiler-regex......ok 1 - grammar => 'Pugs::Grammar::Base'
ok 2 - continue => 0
ok 3 - pos => undef
ok 4 - ratchet => 0
ok 5 - ignorecase => 0
ok 6 - sigspace => 0
ok 7 - params okay (1)
ok 8 - regex ok (1)
ok 9 - grammar => 'abc'
ok 10 - continue => 1
ok 11 - pos => 1
ok 12 - ratchet => 1
ok 13 - ignorecase => 1
ok 14 - sigspace => 1
ok 15 - params okay (0)
ok 16 - regex ok (0)
ok 17 - params are optional
ok 18 - regex ok (null)
ok 19
ok 20
ok 21
ok 22 - croak as expected
ok 23
ok 24 - shouldn't croak this time
ok 25 - reinstall works
ok 26
ok 27
not ok 28 # TODO :c modifier doesn't work in non-ratchet mode
# Failed (TODO) test at t/04-compiler-regex.t line 166.
# got: '5:5:5'
# expected: '5:6'
ok 29 - backtracking works
ok 30
ok 31
ok 32
ok 33
1..33
ok
t/04-compiler-rule.......ok 1 - rule obj ok
ok 2 - The object isa Pugs::Compiler::Regex
ok 3 - ratchet defaults to 1
ok 4 - sigspace defaults to 1
ok 5 - ignorecase defaults to 0
ok 6 - grammar no overridden
ok 7 - p no overridden
ok 8 - continue no overridden
ok 9 - no backtracking
ok 10 - sigspace works
ok 11 - sigspace works (2)
ok 12 - ratchet defaults to 1
ok 13 - sigspace defaults to 1
ok 14 - ignorecase defaults to 0
ok 15 - grammar no overridden
ok 16 - p no overridden
ok 17 - continue no overridden
ok 18 - backtracking works
ok 19 - capture ok
ok 20 - sigspace => 0
1..20
ok
t/04-rule................1..79
ok 1 - use Pugs::Compiler::Regex;
ok 2 - constant
ok 3 - constant
ok 4 - booleanify - unnamed rules are objects
ok 5 - stringify 1
ok 6 - stringify 2
ok 7 - stringify 3
ok 8 - stringify 4
ok 9
ok 10
ok 11 - named rules are methods
ok 12 - named rules are methods
ok 13 - named rules are methods
ok 14 - Died as expected when installing an existing unqualified rule
ok 15 - Died as expected when installing an existing qualified rule
ok 16 - a named subrule calls a named subrule in same grammar
ok 17 - a named subrule calls a named subrule in other grammar
ok 18 - built-in rule
ok 19 - comma is not a special char
ok 20 - escaped char
ok 21 - escaped char \n
ok 22 - escaped char \d
ok 23 - escaped char \D
ok 24 - escaped char \N
ok 25 - escaped char \N \#2
ok 26 - "a?bg?" equals "a? b g?".
ok 27 - 'b' is mandatory here
ok 28
ok 29
ok 30 - Capture is a hashref
ok 31 - $capture->{a}
ok 32 - simple capture
ok 33 - simple capture
ok 34 - a named subrule calls a global unnamed subrule
ok 35 - a named subrule calls a lexical unnamed subrule
ok 36 - at-start - not
ok 37
ok 38 - at-start
ok 39 - at-end - not
ok 40
ok 41 - at-end
ok 42 - at-line-start - not
ok 43
ok 44 - at-line-start
ok 45 - at-line-start, pos==0
ok 46 - at-line-end - not
ok 47 - at-line-end
ok 48 - at-line-end, pos==end
ok 49 - anchored at both sides - not
ok 50 - anchored at both sides
ok 51 - anchored at line start/end - not
ok 52 - anchored at line start/end
ok 53 - plain null
ok 54 - null but true
ok 55 - null between terms
ok 56 - ident
ok 57 - prior
ok 58 -
ok 59
ok 60 - works
ok 61
ok 62
ok 63 - return capture
ok 64 - doesn't loop forever
ok 65
ok 66
ok 67 - negated rule
ok 68 - x never matches
ok 69 - mixed case matches
ok 70 - lower case matches
ok 71 - upper case matches
ok 72 - mixed case matches
ok 73 - lower case matches
ok 74 - upper case matches
ok 75 - internal ignorecase; mixed case matches
ok 76 - internal ignorecase; lower case matches
ok 77 - internal ignorecase; upper case matches
ok 78 - boolean closure
ok 79 - negative boolean closure
ok
t/05-var.................1..5
ok 1 - use Pugs::Compiler::Rule;
ok 2 - match $0
ok 3
ok 4 - match $1
ok 5
ok
t/06-subrule.............1..43
ok 1 - use Pugs::Compiler::Regex;
ok 2 - a Regex object
ok 3 - perl5 returns eval'able code
not ok 4 - no ws # TODO weird rule matches 'null' before the text
# Failed (TODO) test 'no ws'
# at t/06-subrule.t line 29.
# got: '1'
# expected: '0'
ok 5 - Matched at pos=0
ok 6 - Matched non-anchored
ok 7 - Matched...
ok 8 - Capture 1...
ok 9 - Capture 2...
ok 10 - Capture 3...
ok 11 - No more captures
ok 12 - No more captures
ok 13 - Matched...
ok 14 - $ is an array...
ok 15 - Capture 1...
ok 16 - Capture 2...
ok 17 - Capture 3...
ok 18 - No more captures
ok 19 - Matched...
ok 20 - $ is an array...
ok 21 - Capture 1...
ok 22 - Capture 2...
ok 23 - No more captures
ok 24 - backtracking subrule matched
ok 25 - array...
ok 26 - Capture 1...
ok 27 - Capture 2...
ok 28 - No more captures
ok 29 - before matched
ok 30 - before didn't match
ok 31 - before didn't match
ok 32 - <$var> matched
ok 33 - <$var> didn't match
ok 34 - <$var> didn't match
ok 35 # skip named parameters don't parse correctly
ok 36 # skip failing optional quantifier - subrule + param
ok 37 - Captured
ok 38 - Capture 0...
ok 39 - Capture 1...
ok 40 - No more captures
ok 41 - Captured
ok 42 - Capture 0...
ok 43 - Capture 1...
ok
2/43 skipped: various reasons
t/08-hash................1..8
ok 1 - use Pugs::Compiler::Rule;
ok 2 - Matched hash{iff}
ok 3 - fail hash{if} - value != 1
ok 4 - closure not called yet
ok 5 - closure was called hash{use}
ok 6 - subrule hash{until}
ok 7 - subrule hash{until} - 2
ok 8 - Matched hash inside hash
ok
t/09-ratchet.............1..166
ok 1 - use Pugs::Compiler::Token;
ok 2 - use Pugs::Compiler::Rule;
ok 3 - booleanify - unnamed rules are objects
ok 4 - stringify 1
ok 5 - stringify 2
ok 6 - stringify 2
ok 7 - stringify 3
ok 8 - stringify 4
ok 9 - booleanify - unnamed rules are objects
ok 10 - stringify 1
ok 11 -
ok 12 - stringify 1
ok 13 - basic alternative
ok 14 - basic alternative - 2
ok 15 - alternative with captures
ok 16 - alternative - 2
ok 17 - alternative - 3
ok 18 - alternative - 4
ok 19 - alternation no backtracking
ok 20
not ok 21 # TODO '|' is now with longest-token semantics
# Failed (TODO) test at t/09-ratchet.t line 95.
# got: 'ab'
# expected: 'abc'
ok 22 - named rules are methods
ok 23 - a named subrule calls a named subrule in same grammar
ok 24 - a named subrule calls a named subrule in other grammar
ok 25 - a named subrule calls a global unnamed subrule
ok 26 - a named subrule calls a lexical unnamed subrule
ok 27 - built-in rule
ok 28 - keys() method
ok 29 - comma is not a special char
ok 30 - escaped char
ok 31 - escaped char \n
ok 32 - escaped char \d
ok 33 - escaped char \D
ok 34 - escaped char \d
ok 35 - escaped char \D
ok 36 - escaped char \N
ok 37 - escaped char \N \#2
ok 38 - "a?bg?" equals "a? b g?".
ok 39 - Capture is a hashref
ok 40 - $capture->{a}
ok 41 - simple capture
ok 42 - simple capture
ok 43 - alternation
ok 44
ok 45 - named capture
ok 46 - named capture - 2
not ok 47 # TODO subpattern?
# Failed (TODO) test at t/09-ratchet.t line 316.
# got: undef
# expected: ' '
ok 48 - named capture
ok 49 - named capture - 2
not ok 50 # TODO subpattern again?
# Failed (TODO) test at t/09-ratchet.t line 331.
# got: undef
# expected: 'a'
ok 51 - named capture from subrule
ok 52 - named capture - 2
ok 53 - before
ok 54 - not before
ok 55 - not before
ok 56 - before
ok 57 - negated alpha
ok 58 - negated alpha matches
ok 59 - not end-of-str
ok 60 - end-of-str
ok 61 - dot underflow
ok 62 - dot
ok 63 - dot overflow
ok 64 - after
ok 65 - not after
ok 66 - quantifier ? empty match
ok 67 - quantifier ? one match
ok 68 - quantifier ? no match
ok 69 - quantifier * empty match
ok 70 - quantifier * one match
ok 71 - quantifier * many match
ok 72 - quantifier * no match
ok 73 - quantifier + no match
ok 74 - quantifier + one match
ok 75 - quantifier + many match
ok 76 - quantifier + no match
ok 77 - non-capturing with captures inside
ok 78 - non-capturing with captures inside - 2
ok 79 - non-capturing with captures inside - 3
ok 80 - non-capturing with captures inside - 4
ok 81 - capturing with captures inside
ok 82 - capturing with captures inside - 2
ok 83 - capturing with captures inside - 3
ok 84 - capturing with captures inside - 4
ok 85 - sigspace no match
ok 86 - sigspace match
ok 87 - sigspace empty match
ok 88 - sigspace match
ok 89 - sigspace empty match (multi-sp)
ok 90 - sigspace one match
ok 91 - sigspace many match
ok 92 - sigspace required
ok 93 - sigspace no match
ok 94 - true match
ok 95 - named capture on parentheses
ok 96 - named capture on parentheses not positioned
ok 97 - true match
ok 98 - named capture on square brackets
ok 99 - named capture on square brackets not positioned
ok 100 - true match
ok 101 - named capture on subrule
ok 102 - named capture on subrule not positioned
ok 103 - array of rules
ok 104 - array of tokens
ok 105 - Matched hash{iff}
ok 106 - fail hash{if} - value != 1
ok 107 - closure not called yet
ok 108 - closure was called hash{use}
ok 109 - subrule hash{until}
ok 110 - subrule hash{until} - 2
ok 111 - Matched hash{iff}
ok 112 - Matched hash{iff} capture
ok 113 - fail hash{if} - value != 1
ok 114 - closure not called yet
ok 115 - closure was called hash{use}
# KEY = until
ok 116 - subrule hash{until}
ok 117 - subrule hash{until} - 2
ok 118 - Matched hash{until} capture handles stringification
ok 119 - Matched hash{until} return object
ok 120 - default subrule
ok 121 - Matched hash inside hash
ok 122 - literal ">>"
ok 123 - literal ":"
ok 124 - literal "}"
ok 125 - literal ")"
not ok 126 - alternation array rollback # TODO failing array capture rollback
# Failed (TODO) test 'alternation array rollback'
# at t/09-ratchet.t line 861.
# got: '3'
# expected: '2'
ok 127
ok 128
ok 129 - alternation hash rollback
ok 130
not ok 131 - alternation hash rollback with multiple captures # TODO failing capture
# Failed (TODO) test 'alternation hash rollback with multiple captures'
# at t/09-ratchet.t line 898.
# got: '1'
# expected: '2'
not ok 132 # TODO failing capture
# Failed (TODO) test at t/09-ratchet.t line 899.
# got: undef
# expected: 'a'
not ok 133 # TODO failing capture
# Failed (TODO) test at t/09-ratchet.t line 900.
# got: undef
# expected: 'a'
ok 134 - non-capturing char class
ok 135 - non-capturing char class
ok 136 - at-line-start - not
ok 137 - at-line-start
ok 138 - at-line-start, pos==0
ok 139 - at-line-end - not
ok 140 - at-line-end
ok 141 - at-line-end, pos==end
ok 142 - anchored at both sides - not
ok 143 - anchored at both sides
ok 144 - anchored at line start/end - not
ok 145 - anchored at line start/end
ok 146 - ident
ok 147 - prior
ok 148 - prior-prior
ok 149 - at
ok 150 - return capture
ok 151 - <>
ok 156 - xyz>>
ok 157 - xyz>>
ok 158 - xyz>>
ok 159 - x &
ok 160 - y | z
ok 161 - quantifier-rollback
ok 162 - x || y | z
ok 163 - x .*? z - non-greedy quantifier
ok 164 - backreference
ok 165 - boolean closure
ok 166 - negative boolean closure
ok
t/10-regex_perl5.........1..20
ok 1 - use Pugs::Compiler::RegexPerl5;
ok 2 - booleanify
ok 3 - stringify 1
ok 4 - stringify 2
ok 5 - stringify 3
ok 6 - stringify 4
ok 7 - booleanify
ok 8 - stringify 1
ok 9 - stringify 2
ok 10 - stringify 3
ok 11 - to() 4
ok 12 - stringify 4
ok 13 - pos set
ok 14 - p set
ok 15 - p unset
ok 16 - no pos
ok 17 - pos 1
ok 18 - pos 2
ok 19 - pos 1
ok 20 - pos 2
ok
t/11-parsec..............1..0 # Skip The Parsec emitter is not quite ready yet
skipped
all skipped: The Parsec emitter is not quite ready yet
t/11-quantifier..........1..13
ok 1 - use Pugs::Compiler::Regex;
ok 2 - use Pugs::Compiler::Token;
ok 3 - use Pugs::Grammar::Base;
ok 4 - .*
ok 5 - (.*)
ok 6 - ([_|\w]+)
ok 7 - ([_|\w]+)
ok 8 - (\d+) | ([_|\w]+)
ok 9 - (\d+) | ([_|\w]+)
ok 10 - (\d+) | ([_|\w]+)
ok 11 - (\d+) | ([_|\w]+)
ok 12 - [\d]+ as scalar
ok 13 - [\d]+ as scalar
ok
t/12-plain_regex.........1..0 # Skip The plain regex emitter is not quite ready yet
skipped
all skipped: The plain regex emitter is not quite ready yet
t/13-char_classes........1..22
ok 1 - use Pugs::Compiler::Token;
ok 2 - use Pugs::Compiler::Rule;
ok 3 - <+alpha+digit>
ok 4 - <+[user char class]>
ok 5 - <+[user char class]+class>
ok 6 - <+[user char class]+class>
ok 7 - not-ws in quantified subrule
ok 8 - ^<+alpha>$ token
ok 9 - ^<+alpha>$ regex
ok 10 - ^<-alpha>$ token
ok 11 - ^<-alpha>$ regex
ok 12 - b
ok 13 - ^<+[ax]>$ token
ok 14 - ^<+[ax]>$ regex
ok 15 - ^<-[ax]>$ token
ok 16 - ^<-[ax]>$ regex
ok 17 - 3 ^<+[a..z]-[bx]>$ regex
ok 18 - a
ok 19 - b
ok 20 - 3 ^<+[a..z]-[bx]>$ regex
ok 21 - a
ok 22 - b
ok
t/14-mini_perl6..........1..0 # Skip The MiniPerl6 emitter is not quite ready yet
skipped
all skipped: The MiniPerl6 emitter is not quite ready yet
t/15-STD.................1..6
ok 1 - use Pugs::Compiler::Regex;
ok 2 - whatever
ok 3 - before-rule
ok 4 - before-string
ok 5 - before-as-function
ok 6 - ignore Whatever
ok
t/16-examples............1..12
ok 1 - adder.grammar compiles okay
ok 2 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MAdder -e "print Adder->add('3 + 23')->()" ] okay
ok 3 - adder.grammar compiles okay
ok 4 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MAdder -e "print Adder->add('532+49')->()" ] okay
ok 5 - digits.grammar compiles okay
ok 6 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MDigits -e "print Digits->count('49a3')->()" ] okay
ok 7 - langs.grammar compiles okay
ok 8 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 9 - langs2.grammar compiles okay
ok 10 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs2 -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 11 - Grammar.grammar compiles okay
ok 12 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MGrammar -e "print Pugs::Grammar::Rule->rule('a b')->to" ] okay
ok
t/16-safemode............1..6
ok 1 - langs.grammar compiles okay
ok 2 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 3 - debugging output count ok
ok 4 - langs2.grammar compiles okay
ok 5 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs2 -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 6 - debugging output count ok
ok
t/16-tracer-examples.....1..18
ok 1 - adder.grammar compiles okay
ok 2 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MAdder -e "print Adder->add('3 + 23')->()" ] okay
ok 3 - debugging output count ok
ok 4 - adder.grammar compiles okay
ok 5 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MAdder -e "print Adder->add('532+49')->()" ] okay
ok 6 - debugging output count ok
ok 7 - digits.grammar compiles okay
ok 8 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MDigits -e "print Digits->count('49a3')->()" ] okay
ok 9 - debugging output count ok
ok 10 - langs.grammar compiles okay
ok 11 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 12 - debugging output count ok
ok 13 - langs2.grammar compiles okay
ok 14 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MLangs2 -e "print My::VB->def('Dim a, b As double')->{'My::C.var_list'}" ] okay
ok 15 - debugging output count ok
ok 16 - Grammar.grammar compiles okay
ok 17 - output of [ C:\Perl64\bin\perl.exe -Ilib -Itmp -MGrammar -e "print Pugs::Grammar::Rule->rule('a b')->to" ] okay
ok 18 - debugging output count ok
ok
t/17-tracer..............1..9
ok 1 - trace works
ok 2 - trace appends okay
ok 3 - trace_begin works
ok 4 - trace_end works
ok 5 - trace_end works
ok 6
ok 7 - expand okay
ok 8 - unmatched tag
ok 9 - unmatched tags
ok
t/ast/00-basic...........1..28
ok 1 - TEST 1: concat and constant - ab - AST okay (len: 2)
ok 2 - TEST 2: metasyntax '...' - "'a'" - AST okay (len: 3)
ok 3 - TEST 3: metasyntax <$...> - ' <$a> ' - AST okay (len: 6)
ok 4 - TEST 4: metasyntax <@...> - ' <@foo> ' - AST okay (len: 8)
ok 5 - TEST 5: metasyntax <%...> - ' <%hi> ' - AST okay (len: 7)
ok 6 - TEST 6: metasyntax - ' <{ return $0.sqrt }> ' - AST okay (len: 22)
ok 7 - TEST 7: metasyntax - ' <&foo()> ' - AST okay (len: 10)
ok 8 - TEST 8: alt - 'a|b' - AST okay (len: 3)
ok 9 - TEST 9: special chars - "\\d \\s" - AST okay (len: 5)
ok 10 - TEST 10: closures - " a { say 'hi' } " - AST okay (len: 16)
ok 11 - TEST 11: closure quantifier - " a**{1..2} " - AST okay (len: 11)
ok 12 - TEST 12: quantifiers - " a+ b? " - AST okay (len: 7)
ok 13 - TEST 13: subrule () - " " - AST okay (len: 7)
ok 14 - TEST 14: subrule (<.foo>) - " <.foo> " - AST okay (len: 8)
ok 15 - TEST 15: subrule (quanlified) - " " - AST okay (len: 11)
ok 16 - TEST 16: capure (...) - " (a) " - AST okay (len: 5)
ok 17 - TEST 17: capure ( ... ) - " ( a ) " - AST okay (len: 7)
ok 18 - TEST 18: named capure ( ... ) - ' $abc := (a) ' - AST okay (len: 13)
ok 19 - TEST 19: non-capture groups - ' [ a ] ' - AST okay (len: 7)
ok 20 - TEST 20: named capture + [ ... ] - ' $a := [a] ' - AST okay (len: 11)
ok 21 - TEST 21: after - ' ' - AST okay (len: 11)
ok 22 - TEST 22: before - ' ' - AST okay (len: 12)
ok 23 - TEST 23: ! after - ' ' - AST okay (len: 12)
ok 24 - TEST 24: ! before - ' ' - AST okay (len: 13)
ok 25 - TEST 25: charset - ' <[abcd]> ' - AST okay (len: 10)
ok 26 - TEST 26: charset - ' <[ab]-[a]> ' - AST okay (len: 12)
ok 27 - TEST 27: dot - ' . ' - AST okay (len: 3)
ok 28 - TEST 28: non-greedy closures - ' a*? ' - AST okay (len: 5)
t/ast/00-basic.t_ generated.
ok
t/declare/00-demo........1..45
ok 1 - TEST 1: basic - match 1 - .* <=> 'xyzw'
ok 2 - TEST 1: basic - match 1 - res $() : xyzw
ok 3 - TEST 1: basic - match 1 - res $/.from : 0
ok 4 - TEST 1: basic - match 1 - res $/.to : 4
ok 5 - TEST 2: - match 1 - ((.).). <=> 'abc'
ok 6 - TEST 2: - match 1 - res $/ : abc
ok 7 - TEST 2: - match 1 - res $() : abc
ok 8 - TEST 2: - match 1 - res $0 : ab
ok 9 - TEST 2: - match 1 - res $0.from : 0
ok 10 - TEST 2: - match 1 - res $0.to : 2
ok 11 - TEST 2: - match 1 - res $($0) : ab
ok 12 - TEST 2: - match 1 - res $0[0] : a
ok 13 - TEST 2: - match 1 - res $($0[0]) : a
ok 14 - TEST 2: - match 1 - res $0.[ 0 ] : a
ok 15 - TEST 2: - match 1 - res $0[0].from : 0
ok 16 - TEST 2: - match 1 - res $0[0].to : 1
ok 17 - TEST 2: - match 1 - res $0[1] :
ok 18 - TEST 2: - match 1 - res $/.from() : 0
ok 19 - TEST 2: - match 1 - res $/.to( ) : 3
ok 20 - TEST 2: - match 2 - ((.).). <=> '1a2b'
ok 21 - TEST 2: - match 2 - res $/ : "1a2"
ok 22 - TEST 2: - match 2 - res $0 : '1a'
ok 23 - TEST 2: - match 2 - res $0[0] : '1'
ok 24 - TEST 2: - match 3 - ((.).). <=> '
# a'
ok 25 - TEST 2: - match 3 - res $() : "\t\na"
ok 26 - TEST 2: - unmatch - ((.).). <=> ab
ok 27 - TEST 2: - unmatch - ((.).). <=> ,
ok 28 - TEST 2: - unmatch - ((.).). <=> '"
ok 29 - TEST 3: named subrule - match 1 - $ := [.](.) <=> 'abc'
ok 30 - TEST 3: named subrule - match 1 - res $ : 'a'
ok 31 - TEST 3: named subrule - match 1 - res $/ : 'a'
ok 32 - TEST 3: named subrule - match 1 - res $/. : 'a'
ok 33 - TEST 3: named subrule - match 1 - res $/{'z'} : 'a'
ok 34 - TEST 3: named subrule - match 1 - res $/{"z"} : 'a'
ok 35 - TEST 3: named subrule - match 1 - res $/.{ 'z' } : 'a'
ok 36 - TEST 3: named subrule - match 1 - res $0 : b
ok 37 - TEST 3: named subrule - match 1 - res $/[0] : 'b'
ok 38 - TEST 3: named subrule - match 1 - res $/.[0] : "b"
ok 39 - TEST 3: named subrule - match 1 - res $/[1] :
ok 40 - TEST 3: named subrule - match 2 - $ := [.](.) <=> '
# '
ok 41 - TEST 3: named subrule - match 2 - res $.from : 0
ok 42 - TEST 3: named subrule - match 2 - res $.to : 1
ok 43 - TEST 3: named subrule - match 2 - res $0.from : 1
ok 44 - TEST 3: named subrule - match 2 - res $0.to : 2
ok 45 - TEST 3: named subrule - match 2 - res $() : "\t\n"
ok
t/declare/01-sigspace....1..10
ok 1 - TEST 1: - match 1 - ab cd <=> 'ab cd'
ok 2 - TEST 1: - match 2 - ab cd <=> 'ab cd'
ok 3 - TEST 2: - match 1 - ab '=' <=> 'ab='
ok 4 - TEST 2: - match 2 - ab '=' <=> 'ab ='
ok 5 - TEST 2: - match 3 - ab '=' <=> 'ab ='
ok 6 - TEST 3: - match 1 - ab ';' <=> 'ab;'
ok 7 - TEST 3: - match 2 - ab ';' <=> 'ab ;'
ok 8 - TEST 4: - match 1 - ';' <=> 'abc;'
ok 9 - TEST 4: - match 2 - ';' <=> 'abc ;'
ok 10 - TEST 5: - match 1 - grammar ';' <=> 'grammar Perl6;'
ok
t/emitter/00-ratchet.....1..53
ok 1 - TEST 1: - global ok
ok 2 - TEST 1: - constant ok
ok 3 - TEST 1: - layout ok
ok 4 - TEST 2: - alt ok
ok 5 - TEST 2: - constant ok
ok 6 - TEST 2: - constant ok
ok 7 - TEST 2: - layout ok
ok 8 - TEST 3: concat - concat ok
ok 9 - TEST 3: concat - layout ok
ok 10 - TEST 4: metasyntax '...' - constant ok
ok 11 - TEST 4: metasyntax '...' - layout ok
ok 12 - TEST 5: metasyntax <$...> - metasyntax ok
ok 13 - TEST 5: metasyntax <$...> - layout ok
ok 14 - TEST 6: metasyntax <@...> - metasyntax ok
ok 15 - TEST 6: metasyntax <@...> - layout ok
ok 16 - TEST 7: metasyntax <%...> - metasyntax ok
ok 17 - TEST 7: metasyntax <%...> - variable ok
ok 18 - TEST 7: metasyntax <%...> - layout ok
ok 19 - TEST 8: metasyntax - closure ok
ok 20 - TEST 8: metasyntax - layout ok
ok 21 - TEST 9: alt - alt ok
ok 22 - TEST 9: alt - layout ok
ok 23 - TEST 10: special chars - concat ok
ok 24 - TEST 10: special chars - perl5 ok
ok 25 - TEST 10: special chars - perl5 ok
ok 26 - TEST 10: special chars - layout ok
ok 27 - TEST 11: closures - closure ok
ok 28 - TEST 11: closures - layout ok
ok 29 - TEST 12: closure quantifier - quant ok
ok 30 - TEST 12: closure quantifier - layout ok
ok 31 - TEST 13: quantifier + - quant ok
ok 32 - TEST 13: quantifier + - layout ok
ok 33 - TEST 14: quantifier ? - quant ok
ok 34 - TEST 14: quantifier ? - layout ok
ok 35 - TEST 15: subrule () - named_capture ok
ok 36 - TEST 15: subrule () - layout ok
ok 37 - TEST 16: subrule (<.foo>) - metasyntax ok
ok 38 - TEST 16: subrule (<.foo>) - layout ok
ok 39 - TEST 17: subrule (quanlified) - named_capture ok
ok 40 - TEST 17: subrule (quanlified) - layout ok
ok 41 - TEST 18: capure (...) - capture ok
ok 42 - TEST 18: capure (...) - layout ok
ok 43 - TEST 19: named capure ( ... ) - named_capture ok
ok 44 - TEST 19: named capure ( ... ) - capture ok
ok 45 - TEST 19: named capure ( ... ) - layout ok
ok 46 - TEST 20: non-capture groups - constant ok
ok 47 - TEST 20: non-capture groups - layout ok
ok 48 - TEST 20: non-capture groups - constant ok
ok 49 - TEST 20: non-capture groups - layout ok
ok 50 - TEST 21: named capture + [ ... ] - named_capture ok
ok 51 - TEST 21: named capture + [ ... ] - layout ok
ok 52 - TEST 22: - negate ok
ok 53 - TEST 22: - layout ok
t/emitter/00-ratchet.t_ generated.
ok
All tests successful, 4 tests and 2 subtests skipped.
Files=28, Tests=770, 68 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
nmake test TEST_VERBOSE=1 -- OK
Picked up version from Makefile
Picked up distname from Makefile
Picked up abstract from Makefile
Flavio Soibelmann Glock <fglock@gmail.com>
Compiler for Perl 6 regexes
>>> (cd C:\cpanfly\var\cpan\build\Pugs-Compiler-Rule-0.29-GHSh1x && tar cvf - Pugs-Compiler-Rule-0.29.ppd blib) | gzip -c >C:/cpanfly/var/REPO/F/FG/FGLOCK/Pugs-Compiler-Rule-0.29.tar.gz
Pugs-Compiler-Rule-0.29.ppd
blib/
blib/lib/
blib/lib/Pugs/
blib/lib/Pugs/AST/
blib/lib/Pugs/AST/Expression.pm
blib/lib/Pugs/Compiler/
blib/lib/Pugs/Compiler/Grammar.pm
blib/lib/Pugs/Compiler/Regex.pm
blib/lib/Pugs/Compiler/RegexPerl5.pm
blib/lib/Pugs/Compiler/Rule.pm
blib/lib/Pugs/Compiler/Token.pm
blib/lib/Pugs/Emitter/
blib/lib/Pugs/Emitter/Grammar/
blib/lib/Pugs/Emitter/Grammar/Perl5.pm
blib/lib/Pugs/Emitter/Rule/
blib/lib/Pugs/Emitter/Rule/Parsec.pm
blib/lib/Pugs/Emitter/Rule/Perl5/
blib/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm
blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm
blib/lib/Pugs/Emitter/Rule/Perl5/Regex.pm
blib/lib/Pugs/Emitter/Rule/Perl5.pm
blib/lib/Pugs/Emitter/Rule/Perl6/
blib/lib/Pugs/Emitter/Rule/Perl6/Ratchet.pm
blib/lib/Pugs/Grammar/
blib/lib/Pugs/Grammar/Base.pm
blib/lib/Pugs/Grammar/Precedence.pm
blib/lib/Pugs/Grammar/Rule.pm
blib/lib/Pugs/Grammar/Rule.pmc
blib/lib/Pugs/Grammar/Rule2.pm
blib/lib/Pugs/Grammar/RulePure.pm
blib/lib/Pugs/Runtime/
blib/lib/Pugs/Runtime/Common.pm
blib/lib/Pugs/Runtime/Match/
blib/lib/Pugs/Runtime/Match/HsBridge.pm
blib/lib/Pugs/Runtime/Match.pm
blib/lib/Pugs/Runtime/Regex.pm
blib/lib/Pugs/Runtime/Rule.pm
blib/lib/Pugs/Runtime/StrPos.pm
blib/lib/Pugs/Runtime/Tracer.pm
blib/script/
blib/script/compile_p6grammar.bat
blib/script/compile_p6grammar.pl
>>> mv C:\cpanfly\var\cpan\build\Pugs-Compiler-Rule-0.29-GHSh1x/Pugs-Compiler-Rule-0.29.ppd C:/cpanfly/var/REPO/F/FG/FGLOCK
Finished 2008-07-14T20:01:33