[Bps-public-commit] r12827 - Test-Harness-JS

Tue Jun 3 09:22:27 EDT 2008

Author: jesse
Date: Tue Jun  3 09:22:27 2008
New Revision: 12827

Added:
   Test-Harness-JS/code.js
   Test-Harness-JS/jsharness.pl
Modified:
   Test-Harness-JS/   (props changed)

Log:
* These are not the droids you're looking for

Added: Test-Harness-JS/code.js
==============================================================================

--- (empty file)
+++ Test-Harness-JS/code.js	Tue Jun  3 09:22:27 2008
@@ -0,0 +1 @@
+ok(1,"ok");

Added: Test-Harness-JS/jsharness.pl
==============================================================================
--- (empty file)
+++ Test-Harness-JS/jsharness.pl	Tue Jun  3 09:22:27 2008
@@ -0,0 +1,174 @@
+#!/usr/bin/perl
+
+package JSH::Test::HTTP::Server::Simple;
+
+our $VERSION = '0.07';
+
+use warnings;
+use strict;
+use Carp;
+
+use NEXT;
+
+my @CHILD_PIDS;
+$SIG{INT} = sub { warn "INT:$$"; exit 0};
+
+END {
+        my $done = not @CHILD_PIDS;
+        while (not $done) {
+            kill 'USR1', @CHILD_PIDS;
+            local $SIG{ALRM} = sub {die "XX"};
+            alarm(5);
+            eval { 1 while $_ = wait and $_ > 0; };
+            alarm(0);
+            $done = not $@;
+        }
+    exit(0);
+} 
+
+sub started_ok {
+    my $self = shift;
+
+    my $pid;
+
+    $self->{'test_http_server_simple_parent_pid'} = $$;
+
+    my $child_loaded_yet = 0;
+    local %SIG;
+    $SIG{'USR1'} = sub { $child_loaded_yet = 1; exit(0) unless $self->{'test_http_server_simple_parent_pid'} == $$ };
+
+
+    $pid = $self->background;
+    push @CHILD_PIDS, $pid;
+    1 while not $child_loaded_yet;
+
+
+    return "http://localhost:".$self->port
+}
+
+sub setup_listener {
+    my $self = shift;
+    $self->NEXT::setup_listener;
+        kill 'USR1', $self->{'test_http_server_simple_parent_pid'};
+}
+
+sub pids {
+    return @CHILD_PIDS;
+}
+
+
+package JSH::Server;
+use base qw/JSH::Test::HTTP::Server::Simple HTTP::Server::Simple::CGI/;
+
+sub load_server {
+        my $self = shift;
+        $self->{'payload'} = shift;
+
+}
+
+sub handle_request {
+        my $self = shift;
+        my $cgi = shift;
+        if ($ENV{'REQUEST_URI'} eq '/done') {
+               print "HTTP/1.0 200 OK\n";
+               print "Content-Type: text/html\n\n";
+               print "<h1>Done!</h1>\n";        
+                $self->{'test_result'} = $cgi->param('POSTDATA');
+        }
+        elsif ($ENV{'REQUEST_URI'} eq '/results') {
+               print "HTTP/1.0 200 OK\n";
+               print "Content-Type: text/tap\n\n";
+                print $self->{'test_result'} || 'not yet';
+
+                
+
+
+        }
+        elsif ($self->{'payload'}) {
+                 print "HTTP/1.0 200 OK\n";
+                print "Content-Type: text/html\n\n";
+                 print $self->{'payload'};
+                 print "\n";
+        
+                 delete $self->{'payload'}; 
+
+                
+        } elsif($ENV{'REQUEST_URI'} ne '/favicon.ico') {
+        use YAML;
+               warn YAML::Dump(\%ENV, $cgi);
+
+        } 
+}
+
+sub print_banner {}
+package main;
+
+use Path::Class;
+my $source=file($ENV{'JSSOURCE'}||'code.js')->slurp();
+
+my $server = JSH::Server->new( 8000+ int(rand(1000)));
+$server->load_server(<<"EOF");
+<html>
+<head></head>
+<body>
+<pre id="results"># Javascript. TAP. Lurking Horror
+</pre>
+<script>
+
+var counter = 0;
+
+function output(msg) {
+    document.getElementById("results").firstChild.appendData(msg);
+}
+
+function ok (exp, msg) {
+    ++counter;
+        if(eval(exp)) {
+                output("ok " + counter + " " +msg);
+                output("\\n");
+        } else {
+                output("not ok " + counter  + " " +msg);
+                output("\\n");
+        }
+}
+
+
+
+@{[$source]}
+
+
+</script>
+<script>
+function done() {
+    output("1.."+counter);
+  if (window.XMLHttpRequest) {
+    req = new XMLHttpRequest();
+  } else if (window.ActiveXObject) {
+    req = new ActiveXObject("Microsoft.XMLHTTP");
+  }
+  if (req != undefined) {
+    req.onreadystatechange = function() {window.close()}
+    req.open("POST", 'http://localhost:@{[$server->port]}/done', true);
+    req.send(document.getElementById('results').innerHTML);
+  }
+}  
+done();
+</script>
+</body>
+</html>
+EOF
+my $root = $server->started_ok();
+my $pid = open(my $ff, "|firefox -height 10 -width 10 -no-remote -P testing $root") || die "firefox fail $!";
+use LWP::Simple;
+my $out = "not yet";
+my $counter = 0;
+while ( $counter++ < 30) {
+ $out = get($root."/results");
+    last unless ($out eq 'not yet');
+    sleep 1;
+ 
+ }
+kill 9, $pid;
+close($ff);
+print $out;
+exit(0);

