• Minimum 1 number
• No leading, trailing, or embedded spaces
• Not case-sensitive
END
$a->by(sub # Bulleted list to
{if ($_->at(qw(p))) #
{if (my $t = $_->containsSingleText) #
with single text
{if ($t->text =~ s(\\A\\x{2022}\\s*) ()s) # Starting with a bullet
{$_->change(qw(li)); #
to
-
if (my $p = $_->prev(qw(ul))) # Previous element is ul?
{$p->putLast($_->cut); # Put in preceding list or create a new list
}
else
{$_->wrapWith(qw(ul))
}
}
}
}
});
ok -p $a eq <
- Minimum 1 number
- No leading, trailing, or embedded spaces
- Not case-sensitive
END
}
if (1) # Bulleted list to
END
}
if (1)
{my $x = Data::Edit::Xml::new(<
END
my ($a, $b, $c) = $x->contents; #TcopyAttrs #TmoveAttrs
$a->copyAttrs($b, qw(aa bb)); #TcopyAttrs
ok <
END
$a->copyAttrs($b); #TcopyAttrs
ok <
END
$a->moveAttrs($c, qw(aa bb)); #TmoveAttrs
ok <
END
$b->moveAttrs($c); #TmoveAttrs
ok <
END
}
if (1)
{my $x = Data::Edit::Xml::new(<
END
my ($a, $b, $c) = $x->contents; #TcopyNewAttrs #TmoveNewAttrs
$a->copyNewAttrs($b, qw(aa bb)); #TcopyNewAttrs
ok <
END
$a->copyNewAttrs($b); #TcopyNewAttrs
ok <
END
$b->moveNewAttrs($c, qw(aa bb)); #TmoveNewAttrs
ok <
END
$b->moveNewAttrs($c); #TmoveNewAttrs
ok <
END
$a->swap($c); #Tswap
ok <
END
}
if (1)
{my $x = Data::Edit::Xml::new(<
aaa
bbb
ccc
ddd
eee
END
my $a = $x->first; #TisFirstText
my ($ta, $b, $tc, $d, $te) = $a->contents; #TisFirstText
ok $ta ->isFirstText(qw(a x)); #TisFirstText
ok $b->first->isFirstText(qw(b a x)); #TisFirstText
ok $b->prev ->isFirstText(qw(a x)); #TisFirstText
ok $d->last ->isFirstText(qw(d a x)); #TisFirstText
ok $d->next ->isLastText (qw(a x)); #TisLastText
ok $d->last ->isLastText (qw(d a x)); #TisLastText
ok $te ->isLastText (qw(a x)); #TisLastText
}
if (1)
{my $x = Data::Edit::Xml::new(<
aaa
bbb
ccc
ddd
eee
END
ok !$x->diff($x); #Tdiff
my $y = $x->clone; #Tdiff #Tclone
ok !$x->diff($y); #Tdiff #Tclone
$y->first->putLast($x->newTag(q(f))); #Tdiff
ok nws(<
aaa
bbb
ccc
ddd
eee
END
is_deeply [$x->diff($y)], ["ddd eee <", "/a>", "f/>"]; #Tdiff
is_deeply [diff(-p $x, $y)], ["ddd eee <", "/a>", "f/>"]; #Tdiff
is_deeply [$x->diff(-p $y)], ["ddd eee <", "/a>", "f/>"]; #Tdiff
my $X = writeFile(undef, -p $x); #Tdiff
my $Y = writeFile(undef, -p $y); #Tdiff
is_deeply [diff($X, $Y)], ["ddd eee <", "/a>", "f/>"]; #Tdiff
unlink $X, $Y;
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($b, $c, $d) = $a->contents; #Tdata
$c->data->{transform} = 1; #Tdata
ok <
END
$a x= sub #Tdata
{$_->cut if $_->data->{transform};
};
ok <
END
}
ok xmlHeader("") eq <
END
if (1)
{my $a = Data::Edit::Xml::new(""); #Tcrc
my ($b) = $a->contents; #Tcrc
changeReasonCommentSelectionSpecification = {ccc=>1, ddd=>1}; #Tcrc #TchangeReasonCommentSelectionSpecification
$b->putFirst(my $c = $b->newTag(q(c))); #Tcrc
$c->crc($_) for qw(aaa ccc); #Tcrc
ok <
END
changeReasonCommentSelectionSpecification = undef; #Tcrc #TchangeReasonCommentSelectionSpecification
$c->putFirst(my $d = $c->newTag(q(d))); #Tcrc
$d->crc($_) for qw(aaa ccc); #Tcrc
ok <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
ccc
END
my ($b) = $a->contents; #TrequiredCleanUp
$b->requiredCleanUp(q(33)); #TrequiredCleanUp
ok -p $a eq <
<b>
<c>
ccc
</c>
</b>
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($b) = $a->contents; #TreplaceWithRequiredCleanUp
$b->replaceWithRequiredCleanUp(q(bb)); #TreplaceWithRequiredCleanUp
ok -p $a eq <
bb
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->go(qw(b c d))->unwrapParentsWithSingleChild; #TunwrapParentsWithSingleChild
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->putFirstRequiredCleanUp(qq(1111\\n)); #TputFirstRequiredCleanUp
ok -p $a eq <
1111
END
$a->putLastRequiredCleanUp(qq(4444\\n)); #TputLastRequiredCleanUp
ok -p $a eq <
1111
4444
END
$a->go(q(b))->putNextRequiredCleanUp(qq(3333\\n)); #TputNextRequiredCleanUp
ok -p $a eq <
1111
3333
4444
END
$a->go(q(b))->putPrevRequiredCleanUp(qq(2222\\n)); #TputPrevRequiredCleanUp
ok -p $a eq <
1111
2222
3333
4444
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->first->invert; #Tinvert
ok -p $a eq <
END
$a->first->invert; #Tinvert
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->first->invertFirst;
ok -p $a eq <
END
$a->first->invertLast;
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $b) = $a->byList; #TmergeDuplicateChildWithParent #ThasSingleChild
is_deeply [$b->id, $c->id], [qw(b c)]; #TmergeDuplicateChildWithParent #ThasSingleChild
ok $c == $b->hasSingleChild; #TmergeDuplicateChildWithParent #ThasSingleChild
$b->mergeDuplicateChildWithParent; #TmergeDuplicateChildWithParent
ok -p $a eq <
END
ok $b == $a->hasSingleChild; #TmergeDuplicateChildWithParent #ThasSingleChild
}
# Dita tests
if (1)
{my $a = Data::Edit::Xml::new(<
- aaa
- bbb
END
$a->ditaObviousChanges; #TditaObviousChanges
ok -p $a eq <
-
aaa
-
bbb
END
$a->first->ditaListToSteps; #TditaListToSteps
ok -p $a eq <
aaa
bbb
END
$a->first->ditaStepsToList; #TditaStepsToList
ok -p $a eq <
- aaa
- bbb
END
$a->first->ditaListToStepsUnordered; #TditaListToStepsUnordered
ok -p $a eq <
aaa
bbb
END
ok Data::Edit::Xml::new(q())->ditaTopicHeaders eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
- aaa
- bbb
END
$a->first->ditaListToSubSteps; #TditaListToSubSteps
ok -p $a eq <
aaa
bbb
END
}
if (1)
{my $x = Data::Edit::Xml::new(<
h1
H1
h2
H2
h3
H3
h3
H3
h2
H2
h4
H4
END
my %file;
$x->htmlHeadersToSections; #ThtmlHeadersToSections #TdivideDocumentIntoSections
$x->divideDocumentIntoSections(sub #ThtmlHeadersToSections #TdivideDocumentIntoSections
{my ($topicref, $section) = @_; #ThtmlHeadersToSections #TdivideDocumentIntoSections
my $file = keys %file; #ThtmlHeadersToSections #TdivideDocumentIntoSections
$topicref->href = $file; #ThtmlHeadersToSections #TdivideDocumentIntoSections
$file{$file} = -p $section; #ThtmlHeadersToSections #TdivideDocumentIntoSections
$section->cut; #ThtmlHeadersToSections #TdivideDocumentIntoSections
}); #ThtmlHeadersToSections #TdivideDocumentIntoSections
ok -p $x eq <
END
ok nn(dump({map {$_=>nn($file{$_})} keys %file})) eq nn(dump( #ThtmlHeadersToSections #TdivideDocumentIntoSections
{"0" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
"1" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
"2" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
"3" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
"4" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
"5" => "N", #ThtmlHeadersToSections #TdivideDocumentIntoSections
}));
}
if (1)
{my $a = Data::Edit::Xml::new(<A
B
D
E
F
G
H
END
$a->numberTreesJustIds(q(T)); #TnumberTreesJustIds
my $A = Data::Edit::Xml::new(<A
B
D
E
F
G
H
END
ok -p $a eq -p $A; #TnumberTreesJustIds
}
if (1)
{my $a = Data::Edit::Xml::new(<Hello World
END
$a->first->changeText(sub{s(l) (L)g}); #TchangeText
ok -s $a eq q(HeLLo WorLd); #TchangeText
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my $i = $a->indexIds; #TindexIds
ok $i->{C}->tag eq q(c); #TindexIds
ok $i->{E}->tag eq q(e); #TindexIds
}
if (1)
{my $a = Data::Edit::Xml::new(<Aaaaa
Bbbbb
Ccccc
Ddddd
Eeeee
Fffff
Ggggg
Hhhhhh
END
my $A = Data::Edit::Xml::new(<AaaAaaA
BbbBbbB
Ccccc
DddDddD
EeeEeeE
FffFffF
GggGggG
Hhhhhh
END
$a->numberTreesJustIds(q(a)); #TcreatePatch #TData::Edit::Xml::Patch::install
$A->numberTreesJustIds(q(a)); #TcreatePatch #TData::Edit::Xml::Patch::install
my $patches = $a->createPatch($A); #TcreatePatch #TData::Edit::Xml::Patch::install
$patches->install($a); #TcreatePatch #TData::Edit::Xml::Patch::install
ok !$a->diff ($A); #TcreatePatch #TData::Edit::Xml::Patch::install
ok $a->equals($A); #TcreatePatch #TData::Edit::Xml::Patch::install
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $e, $f, $d, $b) = $a->byList; #TupThru
ok -t $f eq q(f); #TupThru
ok -t $f->upThru eq q(f); #TupThru
ok -t $f->upThru(qw(d)) eq q(d); #TupThru
ok -t eval{$f->upThru(qw(d))->last->prev} eq q(e); #TupThru
ok ! eval{$f->upThru(qw(d b))->next}; #TupThru
}
if (1)
{my $a = Data::Edit::Xml::newTree(q(a)); #TaddFirst
$a->addFirst(qw(b id b)) for 1..2; #TaddFirst
ok -p $a eq <
END
$a->addLast(qw(e id e)) for 1..2; #TaddLast
ok -p $a eq <
END
$a->addFirst(qw(b id B))->addNext(qw(c id c)); #TaddNext
ok -p $a eq <
END
$a->addLast(qw(e id E))->addPrev(qw(d id d)); #TaddPrev
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TaddWrapWith
my $b = $a->first; #TaddWrapWith
$b->addWrapWith(qw(c id c)) for 1..2; #TaddWrapWith
ok -p $a eq <
END
$a->addSingleChild(q(d)) for 1..2; #TaddSingleChild
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::newTree(q(a)); #TaddFirstAsText
$a->addFirstAsText(q(aaaa)) for 1..2; #TaddFirstAsText
ok -s $a eq q(aaaa); #TaddFirstAsText #TaddLastAsText
$a->addLastAsText(q(dddd)) for 1..2; #TaddLastAsText
ok -s $a eq q(aaaadddd); #TaddLastAsText
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TaddNextAsText
$a->go(q(b))->addNextAsText(q(bbbb)) for 1..2; #TaddNextAsText
ok -p $a eq <
bbbb
END
$a->go(q(b))->addPrevAsText(q(aaaa)) for 1..2; #TaddPrevAsText
ok -p $a eq <aaaa
bbbb
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
Note: see over for details.
END
$a->ditaParagraphToNote(1); #TditaParagraphToNote
ok -p $a eq <
See over for details.
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->propagate(q(b)); #Tpropagate
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TwrapSiblingsBefore
my ($b, $c, $d) = $a->byList; #TwrapSiblingsBefore
$c->wrapSiblingsBefore(q(X)); #TwrapSiblingsBefore
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TwrapSiblingsAfter
my ($b, $c, $d) = $a->byList; #TwrapSiblingsAfter
$c->wrapSiblingsAfter(q(Y)); #TwrapSiblingsAfter
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TwrapSiblingsBetween
my ($b, $c, $d) = $a->byList; #TwrapSiblingsBetween
$b->wrapSiblingsBetween($d, q(Y)); #TwrapSiblingsBetween
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my $styles = $a->wordStyles; #TwordStyles
is_deeply $styles, {bulletedList=>{aa=>{2=>1}}}; #TwordStyles
}
if (1)
{my $a = Data::Edit::Xml::new(<
| Month |
Savings |
Phone |
Comment |
| January |
100 |
555-1212 |
| February |
80 |
END
$a->htmlTableToDita; #ThtmlTableToDita
ok -p $a eq <
Month
Savings
Phone
Comment
January
100
555-1212
February
80
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my $e = $a->go(qw(b -1 e)); #TforestNumberTrees
$e->forestNumberTrees(1); #TforestNumberTrees
ok -p $a eq <
END
my $b = $e->findByForestNumber(1, 2);
is_deeply [$b->getLabels], ["b"];
my $B = $e->findByForestNumber(1, 4); #TfindByForestNumber
is_deeply [$B->getLabels], ["B"]; #TfindByForestNumber
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
if (1) {
my ($good, $fail, $possible) = $a->goFish(qw(b c D)); #TgoFish
ok $fail eq q(D); #TgoFish
is_deeply $good, [qw(b c)]; #TgoFish
is_deeply $possible, [q(d)]; #TgoFish
}
if (1)
{my ($good, $fail, $possible) = $a->goFish(qw(b 3));
ok $fail eq q(3);
is_deeply $good, [q(b)];
is_deeply $possible, [0..2];
}
if (1)
{my ($good, $fail, $possible) = $a->goFish(qw(b 0 c D));
ok $fail eq q(D);
is_deeply $good, [qw(b 0 c)];
is_deeply $possible, [qw(d)];
}
if (1)
{my ($g, $f, $p) = $a->goFish(qw(b c d));
is_deeply $g, [qw(b c d)];
ok !$f;
ok !$p;
}
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($d, $c, $b, $C, $B, $f, $e) = $a->byList; #TisFirst #TisLast #TisOnlyChild #ThowFirst #ThowLast #ThowOnlyChild #ThowFarAbove #ThowFarBelow #ThowFar #Tadjacent #TcommonAdjacentAncestors
is_deeply [$d->commonAdjacentAncestors($C)], [$b, $B]; #TcommonAdjacentAncestors #ThowFar
ok $d->howFar($d) == 0; #ThowFar
ok $d->howFar($a) == 3; #ThowFar
ok $b->howFar($B) == 1; #ThowFar
ok $d->howFar($f) == 5; #ThowFar
ok $d->howFar($C) == 4; #ThowFar
ok $a->isFirst; #TisFirst
ok $a->isLast; #TisLast
ok $a->isOnlyChild; #TisOnlyChild
ok !$a->adjacent($B); #Tadjacent
ok $b->adjacent($B); #Tadjacent
ok $d->howFirst == 4; #ThowFirst
ok $f->howLast == 3; #ThowLast
ok $d->howOnlyChild == 2; #ThowOnlyChild
ok $a->howFarAbove($d) == 3; #ThowFarAbove
ok !$d->howFarAbove($c); #ThowFarAbove
ok $d->howFarBelow($a) == 3; #ThowFarBelow
ok !$c->howFarBelow($d); #ThowFarBelow
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
ok $a->first->not_a_c; #Tnot
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $b) = $a->byList; #TAUTOLOAD
ok $c->at_c_b_a; #TAUTOLOAD
ok !$c->at_b; #TAUTOLOAD
ok -t $c->change_d_c_b eq q(d); #TAUTOLOAD
ok ! $c->change_d_b; #TAUTOLOAD
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a x= sub{$_->ditaMergeLists}; #TditaMergeLists
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(q()); #TcountAttrNamesOnTagExcluding
ok $a->countAttrNamesOnTagExcluding_a_b == 3;
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $j, $e, $f, $b, $k, $l, $i, $h, $g) = $a->byList; #Tapn #Tap #Tan #TupWhileFirst #TupUntilFirst #TupWhileLast #TupUntilLast #TupWhileIsOnlyChild #TupUntilIsOnlyChild #TdownWhileFirst #TdownWhileLast #TdownWhileSingleChild #ThasSingleChildToDepth
ok $h == $g->hasSingleChildToDepth(1); #ThasSingleChildToDepth
ok $i == $g->hasSingleChildToDepth(2); #ThasSingleChildToDepth
ok !$g->hasSingleChildToDepth(0); #ThasSingleChildToDepth
ok !$g->hasSingleChildToDepth(3); #ThasSingleChildToDepth
ok $i == $i->hasSingleChildToDepth(0); #ThasSingleChildToDepth
ok $h == $g->downWhileHasSingleChild; #TdownWhileHasSingleChild
ok $h == $h->downWhileHasSingleChild; #TdownWhileHasSingleChild
ok !$i->downWhileHasSingleChild; #TdownWhileHasSingleChild
ok $k == $g->downWhileFirst; #TdownWhileFirst
ok $c == $a->downWhileFirst; #TdownWhileFirst
ok $c == $c->downWhileFirst; #TdownWhileFirst
ok !$d->downWhileFirst; #TdownWhileFirst
ok $l == $a->downWhileLast; #TdownWhileLast
ok $l == $g->downWhileLast; #TdownWhileLast
ok !$d->downWhileLast; #TdownWhileLast
ok $h == $i->upWhileIsOnlyChild; #TupWhileIsOnlyChild
ok $j == $j->upWhileIsOnlyChild; #TupWhileIsOnlyChild
ok !$d->upWhileIsOnlyChild; #TupWhileIsOnlyChild
ok $i == $k->upUntilIsOnlyChild; #TupUntilIsOnlyChild
is_deeply[$c, $e], [$d->apn_c_d_e_b_a]; #Tapn
ok $c == $d->ap_d_c_b_a; #Tap
ok $c == $d->ap_d; #Tap
ok !$c->ap_c; #Tap
ok $e == $d->an_d_e_b_a; #Tan
ok $f == $e->an_e; #Tan
ok !$f->an_f; #Tan
ok $h == $i->upWhileFirst; #TupWhileFirst
ok $a == $c->upWhileFirst; #TupWhileFirst
ok !$d->upWhileFirst; #TupWhileFirst
ok $b == $d->upUntilFirst; #TupUntilFirst
ok $j == $j->upWhileLast; #TupWhileLast
ok $a == $l->upWhileLast; #TupWhileLast
ok !$d->upWhileLast; #TupWhileLast
ok $i == $k->upUntilLast; #TupWhileLast
ok $j->childOf($e); #TchildOf
ok $e->parentOf($j); #TparentOf
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TputFirstCut
$c->putFirstCut($d, qw(c b a)); #TputFirstCut
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TputLastCut
$a->putLastCut($d, qw(a)); #TputLastCut
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TputNextCut
$d->putNextCut($c, qw(d b a)); #TputNextCut
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TputPrevCut
$c->putPrevCut($d, qw(c b a)); #TputPrevCut
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TopWrapContentWith
$b *= q(B); #TopWrapContentWith
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b) = $a->byList; #TopUnwrap
$b++; #TopUnwrap
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my $A = Data::Edit::Xml::new(<
END
ok !$a->equals($A); #TequalsIgnoringAttributes
ok !$a->equalsIgnoringAttributes($A, qw(id)); #TequalsIgnoringAttributes
ok $a->equalsIgnoringAttributes($A, qw(id outputclass)); #TequalsIgnoringAttributes
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my $A = Data::Edit::Xml::new(<
END
my $N = 0; $a->by(sub{$_->addLabels((-t $_).++$N)}); #TstringExtendingIdsWithLabels
ok -p (new $a->stringExtendingIdsWithLabels) eq <
END
ok -p (new $A->stringExtendingIdsWithLabels) eq <
END
ok $a->copyLabelsAndIdsInTree($A) == 10; #TcopyLabelsAndIdsInTree
ok -p (new $A->stringExtendingIdsWithLabels) eq <
END
is_deeply [sort keys %{$A->labelsInTree}], #TlabelsInTree
["B", "C", "a", "a5", "b", "b2", "b4", "c", "c1", "c3"]; #TlabelsInTree
}
if (1) #TmatchTree
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b, $g, $f, $e) = $a->byList;
is_deeply [$b, $c, $d], [$b->matchTree(qw(b c d))];
is_deeply [$e, $f, $g], [$e->matchTree(qr(\\Ae\\Z), [qw(f g)])];
is_deeply [$c], [$c->matchTree(qw(c))];
is_deeply [$a, $b, $c, $d, $e, $f, $g],
[$a->matchTree({a=>1}, [qw(b c d)], [qw(e), [qw(f g)]])];
}
if (1) #Toat #Toft #Tolt
{my $a = Data::Edit::Xml::new(<
END
my ($c, $d, $b, $g, $f, $e) = $a->byList;
ok $b->oat_c_d;
ok $a->oat_b_e;
ok $g->oat;
ok !$b->oat_d;
ok $a->oft_b;
ok $b->oft_c;
ok $f->oft_g;
ok $g->oft;
ok !$b->oft_d;
ok $a->olt_e;
ok $b->olt_d;
ok $f->olt_g;
ok $g->olt;
ok !$b->olt_c;
}
if (1) #Tmpt #Tmnt
{my $a = Data::Edit::Xml::new(<
END
my ($b, $c, $d, $e, $f, $g) = $a->contents;
ok $f->mpt_e_d_c;
ok !$f->mpt_e_d_b;
ok $c->mnt_d_e_f;
ok !$c->mnt_e;
}
if (1) #ToverAllTags #ToverFirstTags #ToverLastTags
{my $a = Data::Edit::Xml::new(<
END
ok $a->overAllTags_b_c_d;
ok !$a->overAllTags_b_c;
ok !$a->overAllTags_b_c_d_e;
ok $a->oat_b_c_d;
ok !$a->oat_B_c_d;
ok $a->overFirstTags_b_c_d;
ok $a->overFirstTags_b_c;
ok !$a->overFirstTags_b_c_d_e;
ok $a->oft_b_c;
ok !$a->oft_B_c;
ok $a->overLastTags_b_c_d;
ok $a->overLastTags_c_d;
ok !$a->overLastTags_b_c_d_e;
ok $a->olt_c_d;
ok !$a->olt_C_d;
}
if (1)
{my $a = Data::Edit::Xml::new(<
bbccBB
END
my ($bb, $cc, $c, $BB, $b) = $a->byList; #TfirstTextMatches #TlastTextMatches
ok $bb->matchesText(qr(bb)); #TfirstTextMatches
ok $b->at_b_a && $b->firstTextMatches(qr(bb)); #TfirstTextMatches
ok $b->firstTextMatches(qr(bb), qw(b a)); #TfirstTextMatches
ok $c->at_c_b && $c->firstTextMatches(qr(cc)); #TfirstTextMatches
ok $c->at_c_b && !$c->firstTextMatches(qr(bb)); #TfirstTextMatches
ok $BB->matchesText(qr(BB)); #TlastTextMatches
ok $b->at_b_a && $b->lastTextMatches(qr(BB)); #TlastTextMatches
ok $b->lastTextMatches(qr(BB), qw(b a)); #TlastTextMatches
ok $c->at_c_b && $c->lastTextMatches(qr(cc)); #TlastTextMatches
ok $c->at_c_b && !$c->lastTextMatches(qr(bb)); #TlastTextMatches
ok $cc->matchesText(qr(cc)); #TnextTextMatches #TprevTextMatches
ok $c->at_c_b && $c->prevTextMatches(qr(bb)); #TprevTextMatches
ok $c->at_c_b && $c->nextTextMatches(qr(BB)); #TnextTextMatches
ok $b->at_b && !$b->prevTextMatches(qr(bb)); #TprevTextMatches
ok $b->at_b && !$b->nextTextMatches(qr(BB)); #TnextTextMatches
$b->deleteContent; #TdeleteContent
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
bbb.
ccc.
END
ok nn(-p $a) eq qq(N bbb.NN N ccc.NNNN); #TprettyString
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->changeAttributeValue(q(aa), sub{s(b) (B)}); #TchangeAttributeValue
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
Data::Edit::Xml::ditaOrganization = q(ACT); #TditaOrganization #TprettyStringDitaHeaders #TopString
ok $a->prettyStringDitaHeaders eq <
END
ok -x $a eq <
END
}
if (1) #Tupn
{my $a = Data::Edit::Xml::new(<
END
my ($e, $d, $c, $b) = $a->byList; #Tupn
ok $e = $e->upn_0_e_d_c_b_a; #Tupn
ok $d = $e->upn_1_d_c_b_a; #Tupn
ok $c = $e->upn_2_c_b_a; #Tupn
ok $b = $e->upn_3_b_a; #Tupn
ok $a = $e->upn_4_a; #Tupn
ok !$e->upn_5; #Tupn
is_deeply [$e, $d, $c, $b, $a], [$e->ancestry];
}
if (1) #Tattributes
{my $a = Data::Edit::Xml::new(q());
$a->id = q(id);
ok $a->id eq q(id);
ok !defined($a->href);
ok $a->hrefX eq q();
ok -s $a eq q();
$a->href = q(href);
ok $a->href eq q(href);
ok $a->hrefX eq q(href);
ok -s $a eq q();
$a->href = undef;
ok !defined($a->href);
ok $a->hrefX eq q();
ok -s $a eq q();
}
if (1) #TditaMaximumNumberOfEntriesInARow #TditaAddColSpecToTGroup
{my $a = Data::Edit::Xml::new(<
|
|
|
|
|
END
ok 3 == $a->go_tgroup->ditaMaximumNumberOfEntriesInATGroupRow;
$a->first->ditaAddColSpecToTGroup(3);
ok -p $a eq <
|
END
}
if (1) #TditaFixTGroupColSpec
{my $a = Data::Edit::Xml::new(<
|
|
|
|
END
$a->go_tgroup->ditaFixTGroupColSpec;
ok -p $a eq <
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($b, $c, $d, $e, $f) = $a->byList; #TfirstNot #TlastNot #TnextNot #TprevNot #TnextWhile #TprevWhile #TnextUntil #TprevUntil
ok $c == $a->firstNot_a_b; #TfirstNot
ok $d == $a->lastNot_e_f; #TlastNot
ok $e == $b->nextWhile_c_d; #TnextWhile
ok $c == $f->prevWhile_e_d; #TprevWhile
ok $c == $b->nextWhile; #TnextWhile
ok $b == $c->prevWhile; #TprevWhile
ok $e == $b->nextUntil_e_f; #TnextUntil
ok $b == $f->prevUntil_a_b; #TprevUntil
ok !$b->nextUntil; #TnextUntil
ok !$c->prevUntil; #TprevUntil
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
my ($f, $e, $d, $c, $b, $F, $E, $D, $C, $B) = $a->byList; #TfirstWhile #TfirstUntil #TlastWhile #TlastUntil
if (1) #TfirstWhile #TfirstUntil
{ok $d == $a->firstWhile_a_d_c_b;
ok $f == $a->firstWhile_a_d_c_b_e_f_g_h;
ok !$b->firstWhile_a;
ok $e == $a->firstUntil_e_d;
ok !$c->firstUntil_c;
ok !$b->firstUntil_a;
}
if (1) #TlastWhile #TlastUntil
{ok $D == $a->lastWhile_a_D_C_B;
ok $F == $a->lastWhile_a_D_C_B_E_F_G_H;
ok !$B->lastWhile_a;
ok $E == $a->lastUntil_E_D;
ok !$C->lastUntil_C;
ok !$B->lastUntil_a;
}
}
if (1) #TAUTOLOAD
{my $a = Data::Edit::Xml::new(<
END
ok -t $a->first_b__first_c__next__next_e__next eq q(f);
ok !$a->first_b__first_c__next__next_f;
}
if (1) #TmatchesNextTags #TmatchesPrevTags
{my $a = Data::Edit::Xml::new(<
END
ok -t $a->first__first__matchesNextTags_d_e eq q(c);
ok -t $a->first__first__mnt_d_e eq q(c);
ok !$a-> first__matchesNextTags_d_e;
ok -t $a-> last->last__matchesPrevTags_e_d eq q(f);
ok -t $a-> last->last__mpt_e_d eq q(f);
ok !$a-> last__matchesPrevTags_e_d;
}
if (1) #Tfirstn #Tnextn
{my $a = Data::Edit::Xml::new(<
END
ok -p $a eq <
END
ok -t $a->firstn_0 eq q(a);
ok -t $a->firstn_1 eq q(b);
ok -t $a->firstn_2 eq q(c);
ok -t $a->firstn_3 eq q(d);
ok -t $a->firstn_3__nextn_0 eq q(d);
ok -t $a->firstn_3__nextn_1 eq q(e);
ok -t $a->firstn_3__nextn_2 eq q(f);
}
if (1) #Tlastn #Tprevn
{my $a = Data::Edit::Xml::new(<
END
ok -p $a eq <
END
ok -t $a->lastn_0 eq q(a);
ok -t $a->lastn_1 eq q(B);
ok -t $a->lastn_2 eq q(C);
ok -t $a->lastn_3 eq q(F);
ok -t $a->lastn_3__prevn_0 eq q(F);
ok -t $a->lastn_3__prevn_1 eq q(E);
ok -t $a->lastn_3__prevn_2 eq q(D);
}
if (!$windows) {
my $a = Data::Edit::Xml::new(q().(q(𝝱)x1e3).q()); #TwriteCompressedFile #TreadCompressedFile
my $file = $a->writeCompressedFile(q(zzz.xml.zip)); #TwriteCompressedFile #TreadCompressedFile
ok length(-s $a) eq 8007;
ok -e $file;
my $A = readCompressedFile($file); #TwriteCompressedFile #TreadCompressedFile
ok $a->equals($A); #TwriteCompressedFile #TreadCompressedFile
ok length(-s $a) == length(-s $A);
ok -t $a->firstn_0 eq q(a);
ok -t $a->firstn_1 eq q(b);
ok $a->firstn_2__text eq q(𝝱);
unlink $file;
}
else
{ok 1 for 1..7
}
if (1) #TditaPrettyPrintWithHeaders
{my $a = Data::Edit::Xml::new(q());
ok $a->ditaPrettyPrintWithHeaders eq <
END
}
if (1) # Command and attributes
{my $a = Data::Edit::Xml::new(<
END
my $n = 0;
$a->by(sub
{my ($o) = @_;
$o->id = ++$n % 2;
$o->class = $n % 3;
});
ok -p $a eq <
END
$a->by(sub
{my ($o) = @_;
ok $o->class == 2 if $o->atId_0_e;
ok $o->class == 0 if $o->atId_1_e_c_b;
ok !$o->atId_1_e_b;
});
$a->deleteAttrsInTree_class; #TdeleteAttrsInTree
ok -p $a eq <
END
}
if (1) #TattrX
{my $a = Data::Edit::Xml::new(q());
my $b = $a->first;
ok $b->attrX_name eq q(bb);
ok !$b->attrX_bbb;
}
if (1) #Tunwrap
{my $a = Data::Edit::Xml::new(q(aaa));
my $t = $a->first;
ok !$t->unwrap;
}
if (1)
{my $a = Data::Edit::Xml::new(<
±
END
}
if (1)
{my $a = Data::Edit::Xml::new(<
END
$a->numberTreesJustIds(q(i));
ok -p $a eq <
END
ok -t $a->findById_i4 eq q(B); #TfindById
ok -t $a->findById_i5 eq q(c); #TfindById
$a->wrapRuns(q(B)); #TwrapRuns
ok -p $a eq <
END
}
if (1) #TmatchesNode #TmatchesSubTree #TfindMatchingSubTrees
{my $a = Data::Edit::Xml::new(<
END
my ($c, $b, $C, $B) = $a->byList;
ok $b->id == 2;
ok $c->id == 3;
ok $B->id == 5;
ok $C->id == 6;
ok $c->matchesNode($C, qw(name));
ok !$c->matchesNode($C, qw(id name));
ok $c->matchesSubTree($C, qw(name));
ok $b->matchesSubTree($B, qw(name));
ok !$c->matchesSubTree($C, qw(id name));
ok !$b->matchesSubTree($C, qw(name));
is_deeply [$a->findMatchingSubTrees($b, qw(name))], [$b, $B];
is_deeply [$a->findMatchingSubTrees($c, qw(name))], [$c, $C];
is_deeply [$a->findMatchingSubTrees(new(q()))], [$c, $C];
is_deeply [$a->findMatchingSubTrees(new(q()))], [$b, $B];
is_deeply [$a->findMatchingSubTrees(new(q()), q(id))], [$b];
}
if (1) #TputFirstAsTree #TputLastAsTree #TputNextAsTree #TputPrevAsTree
{my $a = Data::Edit::Xml::new(q());
ok -p $a eq <
END
my $b = $a->putFirstAsTree(q());
ok -p $a eq <
END
$b->putNextAsTree(q());
ok -p $a eq <
END
my $e = $a->putLastAsTree(q());
ok -p $a eq <
END
$e->putPrevAsTree(q());
ok -p $a eq <
END
}
if (1) #TwrapFromFirst
{my $a = Data::Edit::Xml::new(q(