sub set_up
   {
   my $test = shift;
   foreach my $setup ( $test->get_set_up_list() )
      { $test->$setup() }
   }