ACIL FM

Nama	Ukuran	Aksi
lib	-	Open
test	-	Open
vmethods	-	Open
anycase.t	2.16 MB	View DL Edit
args.t	2.41 MB	View DL Edit
assert.t	2.53 MB	View DL Edit
base.t	3.58 MB	View DL Edit
binop.t	4.82 MB	View DL Edit
block.t	2.71 MB	View DL Edit
blocks.t	2.2 MB	View DL Edit
block_duplicate.t	476 B	View DL Edit
capture.t	1.59 MB	View DL Edit
case.t	1.46 MB	View DL Edit
chomp.t	7.71 MB	View DL Edit
compile1.t	2.12 MB	View DL Edit
compile2.t	2.67 MB	View DL Edit
compile3.t	3.75 MB	View DL Edit
compile4.t	2.38 MB	View DL Edit
compile5.t	3.28 MB	View DL Edit
config.t	6.46 MB	View DL Edit
constants.t	5.07 MB	View DL Edit
context.t	5.87 MB	View DL Edit
datafile.t	1.81 MB	View DL Edit
date.t	6.73 MB	View DL Edit
date_offset.t	2.17 MB	View DL Edit
date_utf8.t	1.33 MB	View DL Edit
debug.t	3.86 MB	View DL Edit
directive.t	4.76 MB	View DL Edit
directry.t	5.48 MB	View DL Edit
document.t	3.58 MB	View DL Edit
dumper.t	1.47 MB	View DL Edit
error.t	953 B	View DL Edit
evalperl.t	3.73 MB	View DL Edit
exception.t	1.52 MB	View DL Edit
factory.t	1.4 MB	View DL Edit
file.t	2.87 MB	View DL Edit
fileline.t	3.16 MB	View DL Edit
filter.t	17.74 MB	View DL Edit
foreach.t	10.31 MB	View DL Edit
format.t	1.78 MB	View DL Edit
html.t	2.52 MB	View DL Edit
image.t	2.22 MB	View DL Edit
include.t	6.04 MB	View DL Edit
iterator.t	3.67 MB	View DL Edit
leak.t	5.01 MB	View DL Edit
list.t	4.41 MB	View DL Edit
load_order_vmethods_stash.t	192 B	View DL Edit
macro.t	2.93 MB	View DL Edit
math.t	1.22 MB	View DL Edit
math_rand.t	476 B	View DL Edit
meta.t	881 B	View DL Edit
mtime-zero.t	1.04 MB	View DL Edit
object.t	7.23 MB	View DL Edit
outline.t	2.29 MB	View DL Edit
outline_line.t	971 B	View DL Edit
output.t	2.66 MB	View DL Edit
parser.t	4.74 MB	View DL Edit
parser2.t	981 B	View DL Edit
plugins.t	6.12 MB	View DL Edit
plusfile.t	1.91 MB	View DL Edit
pod.t	2.05 MB	View DL Edit
prefix.t	1.46 MB	View DL Edit
proc.t	867 B	View DL Edit
process-relative.t	2.05 MB	View DL Edit
process.t	1.88 MB	View DL Edit
process_dir.t	1.84 MB	View DL Edit
provider.t	11.08 MB	View DL Edit
README	3.1 MB	View DL Edit
ref.t	1.63 MB	View DL Edit
scalar.t	2.56 MB	View DL Edit
service.t	5.07 MB	View DL Edit
skel.t	947 B	View DL Edit
stash-xs-unicode.t	2.03 MB	View DL Edit
stash-xs.t	8.42 MB	View DL Edit
stash.t	7.91 MB	View DL Edit
stashc.t	1.6 MB	View DL Edit
stop.t	2.72 MB	View DL Edit
strcat.t	758 B	View DL Edit
strict.t	1.52 MB	View DL Edit
string.t	7.38 MB	View DL Edit
switch.t	3.83 MB	View DL Edit
table.t	2.68 MB	View DL Edit
tags.t	3.63 MB	View DL Edit
template.t	1.49 MB	View DL Edit
text.t	2.89 MB	View DL Edit
throw.t	1.94 MB	View DL Edit
tiedhash.t	5.28 MB	View DL Edit
trace_vars.t	1.11 MB	View DL Edit
try.t	9.83 MB	View DL Edit
unicode.t	4.55 MB	View DL Edit
url.t	4.06 MB	View DL Edit
vars.t	11.36 MB	View DL Edit
varsv1.t	8.96 MB	View DL Edit
view.t	17.43 MB	View DL Edit
while.t	3.18 MB	View DL Edit
wrap.t	2.63 MB	View DL Edit
wrapper.t	3.95 MB	View DL Edit
zz-plugin-cycle.t	1.6 MB	View DL Edit
zz-plugin-leak-gh-213.t	2.77 MB	View DL Edit
zz-plugin-leak-rt-46691.t	2.95 MB	View DL Edit
zz-plugin-leak.t	2.02 MB	View DL Edit
zz-pmv.t	1.15 MB	View DL Edit
zz-pod-coverage.t	1.64 MB	View DL Edit
zz-pod-kwalitee.t	776 B	View DL Edit
zz-stash-xs-leak.t	1.59 MB	View DL Edit
zz-url2.t	3.71 MB	View DL Edit

Edit file: /home/.cpan/build/Template-Toolkit-3.102-0/t/string.t

#!/usr/bin/perl -w
#============================================================= -*-perl-*-
#
# t/string.t
#
# Test the String plugin
#
# Written by Andy Wardley <abw@wardley.org>
#
# Copyright (C) 1996-2000 Andy Wardley.  All Rights Reserved.
# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# $Id$
#
#========================================================================

use strict;
use lib qw( ./lib ../lib );
use Template::Test;
use Template::Plugin::String;

my $DEBUG = grep /-d/, @ARGV;
#$Template::Parser::DEBUG = $DEBUG;
#$Template::Directive::PRETTY = $DEBUG;

test_expect(\*DATA);

__DATA__
-- test --
[% USE String -%]
string: [[% String.text %]]
-- expect --
string: []

-- test --
[% USE String 'hello world' -%]
string: [[% String.text %]]
-- expect --
string: [hello world]

-- test --
[% USE String text='hello world' -%]
string: [[% String.text %]]
-- expect --
string: [hello world]

-- test --
[% USE String -%]
string: [[% String %]]
-- expect --
string: []

-- test --
[% USE String 'hello world' -%]
string: [[% String %]]
-- expect --
string: [hello world]

-- test --
[% USE String text='hello world' -%]
string: [[% String %]]
-- expect --
string: [hello world]

-- test --
[% USE String text='hello' -%]
string: [[% String.append(' world') %]]
string: [[% String %]]
-- expect --
string: [hello world]
string: [hello world]

-- test --
[% USE String text='hello' -%]
[% copy = String.copy -%]
string: [[% String %]]
string: [[% copy %]]
-- expect --
string: [hello]
string: [hello]

-- test --
[% USE String -%]
[% hi = String.new('hello') -%]
[% lo = String.new('world') -%]
[% hw = String.new(text="$hi $lo") -%]
hi: [[% hi %]]
lo: [[% lo %]]
hw: [[% hw %]]
-- expect --
hi: [hello]
lo: [world]
hw: [hello world]

-- test --
[% USE hi = String 'hello' -%]
[% lo = hi.new('world') -%]
hi: [[% hi %]]
lo: [[% lo %]]
-- expect --
hi: [hello]
lo: [world]

-- test --
[% USE hi = String 'hello' -%]
[% lo = hi.copy -%]
hi: [[% hi %]]
lo: [[% lo %]]
-- expect --
hi: [hello]
lo: [hello]

-- test --
[% USE hi = String 'hello' -%]
[% lo = hi.copy.append(' world') -%]
hi: [[% hi %]]
lo: [[% lo %]]
-- expect --
hi: [hello]
lo: [hello world]

-- test --
[% USE hi = String 'hello' -%]
[% lo = hi.new('hey').append(' world') -%]
hi: [[% hi %]]
lo: [[% lo %]]
-- expect --
hi: [hello]
lo: [hey world]

-- test --
[% USE hi=String "hello world\n" -%]
hi: [[% hi %]]
[% lo = hi.chomp -%]
hi: [[% hi %]]
lo: [[% lo %]]
-- expect --
hi: [hello world
]
hi: [hello world]
lo: [hello world]

-- test --
[% USE foo=String "foop" -%]
[[% foo.chop %]]
[[% foo.chop %]]
-- expect --
[foo]
[fo]

-- test --
[% USE hi=String "hello" -%]
  left: [[% hi.copy.left(11) %]]
 right: [[% hi.copy.right(11) %]]
center: [[% hi.copy.center(11) %]]
centre: [[% hi.copy.centre(12) %]]
-- expect --
  left: [hello      ]
 right: [      hello]
center: [   hello   ]
centre: [   hello    ]

-- test --
[% USE str=String('hello world') -%]
 hi: [[% str.upper %]]
 hi: [[% str %]]
 lo: [[% str.lower %]]
cap: [[% str.capital %]]
-- expect --
 hi: [HELLO WORLD]
 hi: [HELLO WORLD]
 lo: [hello world]
cap: [Hello world]

-- test --
[% USE str=String('hello world') -%]
len: [[% str.length %]]
-- expect --
len: [11]

-- test --
[% USE str=String("   \n\n\t\r hello\nworld\n\r  \n \r") -%]
[[% str.trim %]]
-- expect --
[hello
world]

-- test --
[% USE str=String("   \n\n\t\r hello  \n \n\r world\n\r  \n \r") -%]
[[% str.collapse %]]
-- expect --
[hello world]

-- test --
[% USE str=String("hello") -%]
[[% str.append(' world') %]]
[[% str.prepend('well, ') %]]
-- expect --
[hello world]
[well, hello world]

-- test --
[% USE str=String("hello") -%]
[[% str.push(' world') %]]
[[% str.unshift('well, ') %]]
-- expect --
[hello world]
[well, hello world]

-- test --
[% USE str=String('foo bar') -%]
[[% str.copy.pop(' bar') %]]
[[% str.copy.shift('foo ') %]]
-- expect --
[foo]
[bar]

-- test --
[% USE str=String('Hello World') -%]
[[% str.copy.truncate(5) %]]
[[% str.copy.truncate(8, '...') %]]
[[% str.copy.truncate(20, '...') %]]
-- expect --
[Hello]
[Hello...]
[Hello World]

-- test --
[% USE String('foo') -%]
[[% String.append(' ').repeat(4) %]]
-- expect --
[foo foo foo foo ]

-- test --
[% USE String('foo') -%]
[% String.format("[%s]") %]
-- expect --
[foo]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.replace('foo', 'oof') %]]
-- expect --
[oof bar oof baz]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.copy.remove('foo\s*') %]]
[[% String.copy.remove('ba[rz]\s*') %]]
-- expect --
[bar baz]
[foo foo ]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.split.join(', ') %]]
-- expect --
[foo, bar, foo, baz]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.split(' bar ').join(', ') %]]
-- expect --
[foo, foo baz]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.split('\s+').join(', ') %]]
-- expect --
[foo, bar, foo, baz]

-- test --
[% USE String('foo bar foo baz') -%]
[[% String.split('\s+', 2).join(', ') %]]
-- expect --
[foo, bar foo baz]

-- test --
[% USE String('foo bar foo baz') -%]
[% String.search('foo') ? 'ok' : 'not ok' %]
[% String.search('fooz') ? 'not ok' : 'ok' %]
[% String.search('^foo') ? 'ok' : 'not ok' %]
[% String.search('^bar') ? 'not ok' : 'ok' %]
-- expect --
ok
ok
ok
ok

-- test --
[% USE String 'foo < bar' filter='html' -%]
[% String %]
-- expect --
foo &lt; bar

-- test --
[% USE String 'foo bar' filter='uri' -%]
[% String %]
-- expect --
foo%20bar

-- test --
[% USE String 'foo bar' filters='uri' -%]
[% String %]
-- expect --
foo%20bar

-- test --
[% USE String '   foo bar    ' filters=['trim' 'uri'] -%]
[[% String %]]
-- expect --
[foo%20bar]

-- test --
[% USE String '   foo bar    ' filter='trim, uri' -%]
[[% String %]]
-- expect --
[foo%20bar]

-- test --
[% USE String '   foo bar    ' filters='trim, uri' -%]
[[% String %]]
-- expect --
[foo%20bar]

-- test --
[% USE String 'foo bar' filters={ replace=['bar', 'baz'],
				  trim='', uri='' } -%]
[[% String %]]
-- expect --
[foo%20baz]

-- test --
[% USE String 'foo bar' filters=[ 'replace', ['bar', 'baz'],
				  'trim', 'uri' ] -%]
[[% String %]]
-- expect --
[foo%20baz]

-- test --
[% USE String 'foo bar' -%]
[% String %]
[% String.filter('uri') %]
[% String.filter('replace', 'bar', 'baz') %]
[% String.output_filter('uri') -%]
[% String %]
[% String.output_filter({ repeat => [3] }) -%]
[% String %]
-- expect --
foo bar
foo%20bar
foo baz
foo%20bar
foo%20barfoo%20barfoo%20bar

-- test --
[% USE String;
   a = 'HeLLo';
   b = 'hEllO';
   a == b ? "not ok 0\n" : "ok 0\n";
   String.new(a) == String.new(b) ? "not ok 1\n" : "ok 1\n";
   String.new(a).lower == String.new(b).lower ? "ok 2\n" : "not ok 2\n";
   String.new(a).lower.equals(String.new(b).lower) ? "ok 3\n" : "not ok 3\n";
   a.search("(?i)^$b\$") ? "ok 4\n" : "not ok 4\n";
-%]
-- expect --
ok 0
ok 1
ok 2
ok 3
ok 4

-- test --
[% USE String('Hello World') -%]
a: [% String.substr(6) %]!
b: [% String.substr(0, 5) %]!
c: [% String.substr(0, 5, 'Goodbye') %]!
d: [% String %]!
-- expect --
a: World!
b: Hello!
c: Hello!
d: Goodbye World!

-- test --
[% USE str = String('foo bar baz wiz waz woz') -%]
a: [% str.substr(4, 3) %]
b: [% str.substr(12) %]
c: [% str.substr(0, 11, 'FOO') %]
d: [% str %]
-- expect --
a: bar
b: wiz waz woz
c: foo bar baz
d: FOO wiz waz woz

Batal