De-bitrot a few days prior to Rakudo Star
[http-daemon:mainline.git] / t / 01-simple.t
1 use HTTP::Daemon;
2 use Test;
3
4 plan 1;
5
6 # Rakudo bug?  Not in the simplest case, anyway.
7 #my HTTP::Daemon $daemon .= new;
8 #my HTTP::Daemon $daemon = HTTP::Daemon.new;
9 my $daemon = HTTP::Daemon.new;
10 isa_ok( $daemon, HTTP::Daemon, 'create object' );
11 $daemon = Mu;
12
13 # Testing gets more complicated after this, because of needing a server
14 # and a client. Do the same as in pugs/t/spec/S32-io/IO-Socket-INET.t
15 # and use a shell script to fork the client and server.
16