
~~~~~~ Demonstration overview ~~~~~
 
The results from executing the Perl Code 
follow on the next lines as comments. For example,

 2 + 2
 # 4

~~~~~~ The demonstration follows ~~~~~

     #########
     # For "TEST" 1.24 or greater that have separate std err output,
     # redirect the TESTERR to STDOUT
     #
     tech_config( 'Test.TESTERR', \*STDOUT );

 ##################
 # Quiet Code
 # 
 
 'hello world'

 # 'hello world'
 #

 ##################
 # ok subroutine
 # 
 
 99

 # 99
 #

 ##################
 # skip subroutine
 # 
 
 80

 # 80
 #

 ##################
 # Pass test
 # 
 
 my $x = 2
 my $y = 3
 $x + $y

 # 5
 #

 ##################
 # Todo test that passes
 # 
 
 $y-$x

 # 1
 #

 ##################
 # Test that fails
 # 
 
 $x+4

 # 6
 #

 ##################
 # Skipped tests
 # 
 

 ##################
 # Todo Test that Fails
 # 
 
 $x*$y*2

 # 12
 #

 ##################
 # demo only
 # 
 
 $x

 # 2
 #

 ##################
 # verify only
 # 
 

 ##################
 # Test loop
 # 
 
     my @expected = ('200','201','202');
     my $i;
     for( $i=0; $i < 3; $i++) {
 $i+200

 # 200
 #
 $i + ($x * 100)

 # 200
 #
     }
 $i+200

 # '201'
 #
 $i + ($x * 100)

 # 201
 #
     }
 $i+200

 # 202
 #
 $i + ($x * 100)

 # 202
 #
     }

 ##################
 # Failed test that skips the rest
 # 
 
 $x + $y

 # 5
 #

 ##################
 # A test to skip
 # 
 
 $x + $y + $x

 # 7
 #

 ##################
 # A not skip to skip
 # 
 
 $x + $y + $x + $y

 # 10
 #

 ##################
 # A skip to skip
 # 
 
