Commits

Shlomi Fish committed b6b3754

Remove more

Comments (0)

Files changed (1)

     isa_ok($write_t, 'CODE', "writer element $test");
     $write_t;
 }
-*create_writer = \&writer_create;  # name change in 0.03
 
 
 sub writer_test($$;$)
     $tree;
 }
 
-
-sub writer_error($$$)
-{   my ($schema, $reltype, $data) = @_;
-
-    my $write = writer_create $schema, "writer for $reltype", $reltype;
-
-    my $node;
-    try { my $doc = XML::LibXML->createDocument('1.0', 'UTF-8');
-          isa_ok($doc, 'XML::LibXML::Document');
-          $node = $write->($doc, $data);
-    };
-
-    my $error
-       = ref $@ && $@->exceptions
-       ? join("\n", map {$_->message} $@->exceptions)
-       : '';
-    undef $node if $error;   # there is output if only warnings are produced
-
-#   my $error = $@ ? $@->wasFatal->message : '';
-    ok(!defined $node, "no return for $reltype expected");
-    warn "RETURNED =", $node->toString if ref $node;
-    ok(length $error, "EW=$error");
-
-    $error;
-}
-
-
-sub templ_xml($$@)
-{   my ($schema, $test, @opts) = @_;
-
-    my $abs = _reltype_to_abs $test;
-
-    $schema->template
-     ( XML                => $abs
-     , include_namespaces => 1
-     , @opts
-     ) . "\n";
-}
-
-
-sub templ_perl($$@)
-{   my ($schema, $test, @opts) = @_;
-
-    my $abs = _reltype_to_abs $test;
-
-    $schema->template
-     ( PERL               => $abs
-     , include_namespaces => 0
-     , @opts
-     );
-}
-
-
 sub set_compile_defaults(@) { @compile_defaults = @_ }
 
-
-sub set_default_namespace($) { $default_namespace = shift }
-
-
-sub compare_xml($$;$)
-{   my ($tree, $expect, $comment) = @_;
-    my $dump = ref $tree ? $tree->toString : $tree;
-
-    for($dump, $expect)
-    {   defined $_ or next;
-        s/\>\s+/>/gs;
-        s/\s+\</</gs;
-        s/\>\s+\</></gs;
-        s/\s*\n\s*/ /gs;
-        s/\s{2,}/ /gs;
-        s/\s+\z//gs;
-    }
-    is($dump, $expect, $comment);
-}
-
-1;
-
 our $TestNS    = 'http://test-types';
 our $SchemaNS  =  'http://www.w3.org/2001/XMLSchema';
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.