cvs commit: xml-axkit/t/xslt-basic 05_params.t

[kip]

kip         2003/08/22 23:52:35

  Added:       t/xslt-basic 05_params.t
  Log:
  Test client request param -> XSLT param passing.
  
  Revision  Changes    Path
  1.1                  xml-axkit/t/xslt-basic/05_params.t
  
  Index: 05_params.t
  ===================================================================
  #!perl
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw( GET ) ;
  
  plan tests => 1, have_module qw(LWP);
  
  sub test_basic {
      my $resp = GET '/xslt-basic/05_params.xml?p1=passed;p2=data' ;
      #warn "GOT CONTENT:" . $resp->content();
      return 0 unless $resp->content =~ /passed data/gi;
      return 1;
  }
  
  ok( test_basic(),1,    "Testing stylesheet param passing behavior." );