use strict;
use warnings;
use Test::Simple tests => 5;

# Immer wahr
ok(1,'Test erfolgreich');

# immer falsch
ok(0,'Test ging in die Hose');

# Bedingungstests
ok(1 == 1,'1 gleich 1');
ok(return_number() == 42,'return_number() liefert 42');
ok(return_string() =~ m/Fan/,'return_string() scheint zu gehen');
 
sub return_number
  { return 42; }

sub return_string
  { return "Hi Fan!\n"; }