Commit e0f44ddf authored by unknown's avatar unknown
Browse files

Merge bk-internal:/home/bk/mysql-5.1-new 

into  shellback.(none):/home/msvensson/mysql/bug17574/my51-bug17574
parents 7b8c7693 3537931b

mysql-test/lib/mtr_cases.pl

+12 −4
Original line number Diff line number Diff line
@@ -252,19 +252,27 @@ sub collect_one_test_case($$$$$$$) { 
    $tinfo->{'slave_restart'}= 1;

  }



  if ( ( $::opt_with_ndbcluster or $::glob_use_running_ndbcluster ) and

       ( $::opt_with_ndbcluster_all or defined mtr_match_substring($tname,"ndb") ))

  if ( $::opt_with_ndbcluster_all or defined mtr_match_substring($tname,"ndb") )

  {

    # This is an ndb test or all tests should be run with ndb cluster started

    $tinfo->{'ndb_test'}= 1;

    if ( $::opt_skip_ndbcluster )

    {

      # All ndb test's should be skipped

      $tinfo->{'skip'}= 1;

      return;

    }

  }

  else

  {

    # This is not a ndb test

    $tinfo->{'ndb_test'}= 0;

    if ( $::opt_with_ndbcluster_only )

    { 

      # Only the ndb test should be run, all other should be skipped

      $tinfo->{'skip'}= 1;

      return;

    }

    $tinfo->{'ndb_test'}= 0;

  }



  # FIXME what about embedded_server + ndbcluster, skip ?!

mysql-test/lib/mtr_report.pl

+5 −0
Original line number Diff line number Diff line
@@ -114,6 +114,11 @@ sub mtr_report_test_failed ($) { 
  {

    print "[ fail ]  timeout\n";

  }

  elsif ( $tinfo->{'ndb_test'} and  !$::flag_ndb_status_ok)

  {

    print "[ fail ]  ndbcluster start failure\n";

    return;

  }

  else

  {

    print "[ fail ]\n";

mysql-test/mysql-test-run.pl

+34 −8
Original line number Diff line number Diff line
@@ -1471,7 +1471,6 @@ sub ndbcluster_install () { 
	         "--core"],

		"", "", "", "") )

  {

    mtr_error("Error ndbcluster_install");

    return 1;

  }
@@ -1567,7 +1566,6 @@ sub ndbcluster_install_slave () { 
		 "--core"],

		"", "", "", "") )

  {

    mtr_error("Error ndbcluster_install_slave");

    return 1;

  }
@@ -1780,17 +1778,38 @@ sub mysql_install_db () { 


  if ( ndbcluster_install() )

  {

    # failed to install, disable usage but flag that its no ok

    if ( $opt_force)

    {

      # failed to install, disable usage and flag that its no ok

      mtr_report("ndbcluster_install failed, continuing without cluster");

      $opt_with_ndbcluster= 0;

      $flag_ndb_status_ok= 0;

    }

    else

    {

      print "Aborting: Failed to install ndb cluster\n";

      print "To continue, re-run with '--force'.\n";

      mtr_exit(1);

    }

  }



  if ( ndbcluster_install_slave() )

  {

    # failed to install, disable usage but flag that its no ok

    if ( $opt_force)

    {

      # failed to install, disable usage and flag that its no ok

      mtr_report("ndbcluster_install_slave failed, " .

		 "continuing without slave cluster");

      $opt_with_ndbcluster_slave= 0;

      $flag_ndb_slave_status_ok= 0;

    }

    else

    {

      print "Aborting: Failed to install ndb cluster\n";

      print "To continue, re-run with '--force'.\n";

      mtr_exit(1);

    }

  }



  return 0;

}
@@ -1992,6 +2011,13 @@ sub run_testcase ($) { 
    return;

  }



  if ( $tinfo->{'ndb_test'}  and ! $flag_ndb_status_ok )

  {

    mtr_report_test_name($tinfo);

    mtr_report_test_failed($tinfo);

    return;

  }



  # ----------------------------------------------------------------------

  # If not using a running servers we may need to stop and restart.

  # We restart in the case we have initiation scripts, server options