Added pagebreak annotations (with '~'-prefix)
Change-Id: I1e484756cedfd2450da55b031a8749ca1f98b891
diff --git a/t/annotation/dereko_struct.t b/t/annotation/dereko_struct.t
index 8f5f18a..5569369 100644
--- a/t/annotation/dereko_struct.t
+++ b/t/annotation/dereko_struct.t
@@ -10,7 +10,7 @@
ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens');
-ok($tokens->add('DeReKo', 'Structure'), 'Add Structure');
+ok($tokens->add('DeReKo', 'Structure', 'pagebreaks'), 'Add Structure');
my $data = $tokens->to_data->{data};
@@ -38,8 +38,6 @@
'@:dereko/s:version:1.1$<b>17<s>2',
'Attribute of idsHeader');
-
-
is($data->{stream}->[0]->[14],
'@:dereko/s:pattern:text$<b>17<s>2',
'Attribute of idsHeader');
@@ -56,6 +54,10 @@
'<>:dereko/s:pb$<b>65<i>42<i>42<i>6<b>6<s>1',
'Pagebreak element');
+is($data->{stream}->[6]->[-1],
+ '~:base/s:pb$<i>2<i>42',
+ 'Pagebreak element');
+
done_testing;
__END__