start of SubList filter code

[scpubgit/SCS.git] / t / pages.t

diff --git a/t/pages.t b/t/pages.t
index adb1d44..3c51571 100644 (file)
--- a/t/pages.t
+++ b/t/pages.t
@@ -7,8 +7,10 @@ sub check_structure {
   $s = { %$s };
   my $body = delete $s->{body};
   like($body, qr/^\s+<p>Some markdown here.<\/p>\s+$/sm, 'Body correct');
+  delete @{$s}{grep /^_/, keys %$s};
   is_deeply($s,
     {
+      created => '',
       title => '--TITLE--',
       description => '--DESCRIPTION--',
       keywords => '--KW1-- --KW2--'