# Copyright (c) 2006-2010 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: WikiText.bunit,v 1.33 2010/05/14 03:08:21 nagler Exp $ WikiText({die_on_validate_error => 0}); [ <<'IN' => trim_space(<<'OUT'), @h1 foo @blockquote my stuff @/blockquote IN
OUT '^' => qq{my stuff
^\n
}, '' => '', 'a' => qq{a\n
}, "a\n\nb" => qq{a\n
b\n
}, '*a*bold*phrase*' => qq{a bold phrase\n
}, '(*a*)' => qq{(a)\n
}, '_emphasis_' => qq{emphasis\n
}, 'a *bold* _emphasis_ mix' => qq{a bold emphasis mix\n
}, 'MixedCase' => qq{MixedCase\n
}, '^^ MixedCase' => qq{^ MixedCase\n
}, '^^MixedCase' => qq{^MixedCase\n
}, '^M' => qr{M\n
}, '^M MiC' => qr{M MiC\n
}, '^Space_Here' => qr{}, ' MiC ' => qr{MiC \n
}, '(^MiC)' => qr{\(MiC\)\n
}, 'e.g.' => qq{e.g.\n
}, '^/a/b' => qq{/a/b\n
}, '^/a/b.' => qq{/a/b.\n
}, '^http://a.com' => qq{}, '^http://a.com.' => qq{http://a.com.\n
}, '^http://a.com?' => qq{}, '_^http://a.com_' => qq{}, '^http://a.com/a_x_y' => qq{}, '^a@a.a,' => qq{a\@a.a,\n
}, '<^a@a.a>' => qq{<a\@a.a>\n
}, '^icon.jpg' => qr{
\n
\n
Module.pm\n
}, '^Module.ch' => qq{}, 'a.com' => qq{a.com\n
}, '^a.com' => qq{a.com\n
}, '^a.com a.com' => qq{a.com a.com\n
}, '^a.com.' => qq{a.com.\n
}, 'a & b' => qq{a & b\n
}, 'a ^^& b' => qq{a ^& b\n
}, 'a @hr < b > c >= d =>' => qq{a \@hr < b > c >= d =>\n
}, '&' => qq{&\n
}, '--' => qq{one
|
p1
OUT <<'IN' => trim_space(<<'OUT'), @h1 h1a @br h1b @/h1 p1 INp1
OUT '@p *x*' => qq{x
}, foo_bar => qq{foo_bar\n
}, # DIV means you are in "advanced" mode, and auto-paragraphing # is off. '@div' => qq{}, "\@div\n\@/div" => qq{}, "\@div.c1\n\@/div" => qq{}, "\@div.c1.c2 x1\n" => qq{*x*
*x*
\n
}, '@®' => qq{®\n
}, '@®' => qq{®\n
}, '@"' => qr{\Q>"}, '@"@"' => qr{\Q>""}, '@td @®' => qq{®
\@other\n
}, '@badtag' => qq{}, '@my/bp/Shell_Util_Help' => qq{}, "\n\@hr" => qr{\n/foo.doc\n
}, '@img src="x"' => qr{a\nb\n
}, "a\@\n\nb" => qq{a\n
b\n
}, "\@a href=/ a\@\nb" => qq{ab\n
}, "\@span a\@\nb\@" => qq{ab\n
}, '@a href=javascript:/ x' => qq{}, "\@a name=x" => qq{}, '@a href=/ foo.org' => qq{}, '@a href=x#a y' => qr{}, '@a href=^x#a y' => qr{}, '^M#a' => qr{M a\n
}, <<'IN' => trim_space(<<'OUT'), @table @tr @td @ul @li item1 @li item2 IN
|
p1
p2
p3
1.1 | 1.2 | |
2.1 | 2.2 | |
|
3.1p1 3.1p2 |
i1.1
i1.2
i2
i3
MixedCaseOnly\n
}, ' MiC ' => qq{MiC \n
}, '/a/b' => qq{/a/b\n
}, 'http://a.com' => qq{http://a.com\n
}, 'a@a.a' => qq{a\@a.a\n
}, 'Module.ch' => qq{Module.ch\n
}, 'a.com' => qq{a.com\n
}, '@a href=/x y' => qq{}, '@a href=x y' => qr{}, '/foo.doc' => qq{/foo.doc\n
}, '@img src="x"' => qr{y\n
}, <<'IN' => trim_space(<<'OUT'), @form method=POST action=/bunit_wiki/Forms/wikiform enctype=multipart/form-data @div @input type=text name=w1 value="" @textarea name=w5 rows=4 cols=40 @textarea name=w6 rows=4 cols=40 value6 @/textarea @textarea name=w7 rows=4 cols=40 value7 @fieldset @legend options @select name=w8 @option value=7 Seven @option selected=1 Eight @/select @/fieldset @input type="submit" name="submit" value="OK" @/form IN OUT ];