WebSVN – DevTools – Diff – /TxnTestManager/branches/Stockholm/src/ttm/Main.cpp

 #pragma hdrstop
 #include "time.h"
 #include "pcreposix.h"
+#include "About.h"
 #include "DataModule.h"
 #include "DefinedVariable.h"
 #include "DefinedVariableTable.h"
 #include "EvaluationContext.h"
 #include "FieldExpression.h"
 #include "FileCtrl.hpp"
 #include "GenerationProperties.h"
 #include "ICryptographicServerProxy.h"
 #include "IHash.h"
-#include "ImportTransactionParameters.h"
 #include "InitProgress.h"
 #include "IMessageDigest.h"
 #include "ISecurityWrapperFactory.h"
 #include "Iteration.h"
 #include "IXmlSchemaWrapperElement.h"
 #include "ParameterScope.h"
 #include "Registry.hpp"
 #include "ScenarioParameters.h"
 #include "Sequence.h"
 #include "SequenceCollection.h"
-#include "TestHosts.h"
 #include "TestScenario.h"
 #include "TestScenarioProperties.h"
 #include "TestScenarioTemplate.h"
 #include "TimeEstimate.h"
 #include "TransactionFieldTemplate.h"
 #include "TransactionSpecification.h"
 #include "TransactionSpecificationValue.h"
 #include "TransactionSpecificationValueKey.h"
 #include "TransactionStream.h"
 #include "TransactionTemplateCollection.h"
-#include "UdDrainFile.h"
-#include "UdTransferHistory.h"
 #include "Utilities.h"
 #include <algorithm>
 #include <ctype.h>
 //---------------------------------------------------------------------------
 const char *TMainForm::g_headerStructure  = "SysHdr_t";
 const int   TMainForm::g_messagePanel     = 0;
 /**
  * Process paint message.
  */
 void ProcessPaintMessages( HWND Handle )
+{
 const bool __fastcall TMainForm::openSecurityFactory( const char * library )
+{
-   //ShellExecute(Handle,"open",PChar("command.com /c"),PChar("C:\\afctxn\\ERGsec\\scripts\\exprc_cryptoserver.bat"),0,SW_NORMAL);
-   //Sleep(10);
     STARTUPINFO si;
     PROCESS_INFORMATION pi;
     memset (&pi, 0, sizeof(pi));
     si.dwFlags |=STARTF_USESHOWWINDOW;
     si.wShowWindow|=SW_SHOWNORMAL;
     if ( ! CreateProcess(
             "C:\\WINDOWS\\system32\\cmd.exe ",
-            "/c C:\\afctxn\\ERGsec\\scripts\\exprc_cryptoserver.bat" ,
+            "/c C:..\\..\\ERGsec\\scripts\\exprc_cryptoserver.bat" ,
             NULL,
             NULL,
-            false,
+            true,
             NORMAL_PRIORITY_CLASS,
             NULL,
             NULL,
             &si,
             &pi))
-            {
+    {
-            MessageBox(0, "Could not execte program \n Please contact software author.", "Error", MB_ICONSTOP);
+            MessageBox(0, "Could not launch crypto server. \n The UD will not have a proper MAC.", "Error", MB_ICONSTOP);
+    }
+#if 0
-            }
+    else
+    {
+            AnsiString  message;
+            message.sprintf("process id is %d ",  pi.dwProcessId);
+            MessageDlg(message, mtError, TMsgDlgButtons() << mbOK, 0) ;
+    }
+#endif
    m_securityWrapper = ::LoadLibrary( library );
    if ( m_securityWrapper )
+   {
 :  TForm(Owner),
    m_progressBar( 0 ),
    m_securityWrapper( 0 ),
    m_getSecurityWrapperFactory( 0 ),
    m_securityWrapperFactory( 0 ),
-    m_transferManager( 0 ),
+    //m_transferManager( 0 ),
     m_Registry( 0 ),
     m_currentiteration (25),
     m_currentproject("SLS")
+{
    //TestCasesTabSheet->TabVisible = false;
    closeSecurityFactory();
    delete m_progressBar;
    m_progressBar = 0;
-    delete m_transferManager;
+    //delete m_transferManager;
-    m_transferManager = 0;
+    //m_transferManager = 0;
     delete m_Registry;
     m_Registry = 0;
+}
 //---------------------------------------------------------------------------
                     // use the iteration held in the registry to complete the preparation for the form
                     LoadIteration(Sender);
                     bool allow;
                     TestCaseGridRowChanging(Sender, 0, 1, allow = true );
                     MASSTxnTabSheet->Visible = false;
-                    InitialiseUdTransferManager();
+                    //InitialiseUdTransferManager();
+                }
+            }
             catch( EOleException & e )
+            {
                     m_currentproject.c_str(),
                     m_currentiteration);
    SequenceGeneratorQuery->SQL->Text = sql_statement;
    SequenceGeneratorQuery->Open();
+#if 0  // TxnHdr not supported in TSB
     // Load the Project/Iterations TXNHDR Parameters
     TxnHdrValuesQuery->Close();
     sql_statement="";
     sql_statement.sprintf("SELECT * FROM TXNHDR_VALUES "
                     "WHERE PROJECT_CODE='%s' AND ITERATION=%d",
                     m_currentproject.c_str(),
                     m_currentiteration);
    TxnHdrValuesQuery->SQL->Text = sql_statement;
    TxnHdrValuesQuery->Open();
+#endif
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::LoadTestCaseNodes(TTreeNode *testcase_node)
+{
          */
     TestCaseTreeView->Items->EndUpdate();
+}
 //---------------------------------------------------------------------------
-void __fastcall TMainForm::InitialiseUdTransferManager()
-{
-    if( m_transferManager == 0 )
-    {
-        m_transferManager = new UdTransferManager;
-        if( m_transferManager != 0 )
-        {
-            m_transferManager->LoadPendingTasks();
-            UdTransferHistoryForm->SetTransferManager(m_transferManager);
-        }
-    }
-}
-//---------------------------------------------------------------------------
 void __fastcall TMainForm::EditTestCaseExecute(TObject *Sender)
+{
    //
 void __fastcall TMainForm::TxnStepsQueryAfterPost(TDataSet *DataSet)
+{
  /* This routine was added to copy the exisiting TestCaseQuery behaviour but I am not sure if it is needed. */
-   if (TxnStepsQuery->Active)
+ //  if (TxnStepsQuery->Active)
-    {
+ //   {
-      TxnStepsQuery->Close();
+ //     TxnStepsQuery->Close();
-    }
+ //   }
-    TxnStepsQuery->Open();
+ //   TxnStepsQuery->Open();
-//    TxnStepsQuery->Edit();
          MainStatusBar->Panels->Items[ g_messagePanel ]->Text = "posting txn steps";
                   Application->ProcessMessages();
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::TxnStepsNewRow(TDataSet *DataSet)
+{
          MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                   Application->ProcessMessages();
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::StepsGridRowChanging(TObject *Sender,
       int OldRow, int NewRow, bool &Allow)
          MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                   Application->ProcessMessages();
  //Application->MessageBox(message.c_str(),"hello box",NULL);
-    //TestCaseGridRowChanging(Sender, 0, 1, Allow);
+   // TestCaseGridRowChanging(Sender, 0, 1, Allow);
+}
 //---------------------------------------------------------------------------
-void __fastcall TMainForm::loadLegacyHeaderValues( TransactionTemplateCollection & templates, const AnsiString & project, const int & iteration )
-{
-   TADOQuery * query = 0;
-   try
-   {
-      query = new TADOQuery( this );
-      query->Connection = Data_Module->IntegrationDBConnection;
-      AnsiString sqlStatement;
-      sqlStatement.sprintf(
-         "SELECT "
-            "FIELDNAME,"
-            "FIELDVALUE "
-         "FROM "
-            "TXNHDR_VALUES "
-         "WHERE "
-            "PROJECT_CODE=\'%s\' AND "
-            "ITERATION=%d",
-         project.c_str(),
-         iteration );
-      query->SQL->Text = sqlStatement;
-      query->Open();
-      AnsiString xpath;
-      AnsiString value;
-      while ( !query->Eof )
-      {
-         value = query->FieldByName( "FIELDVALUE" )->AsString;
-         if ( !value.IsEmpty() )
-         {
-            if ( value[ 1 ] == '=' )
-            {
-               value.Delete( 1, 1 );
-            }
-            if ( !value.IsEmpty() )
-            {
-               switch ( value[ 1 ] )
-               {
-                  case '@':
-                     value[ 1 ] = '=';
-                     if ( FieldExpression::isFunctor(
-                           value.c_str() + 1 ) )
-                     {
-                        value += "()";
-                     }
-                     break;
-                  default:
-                     break;
-               }
-            }
-         }
-         xpath.sprintf(
-            "/%s/%s",
-            g_headerStructure,
-            query->FieldByName( "FIELDNAME" )->AsString.c_str() );
-         templates.getTestScenario( 0 ).getField( xpath.c_str() ).
-            setValue( value.c_str() );
-         query->Next();
-      }
-   }
-   __finally
-   {
-      delete query;
-      query = 0;
-   }
-}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::loadLegacyParameters( TransactionTemplateCollection & templates, const AnsiString & project, const int & iteration )
+{
    TADOQuery * query = 0;
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::buildTransactionTemplates( TransactionTemplateCollection & templates, const AnsiString & project, const int & iteration )
+{
    templates.clear();
-   loadLegacyHeaderValues( templates, project, iteration );
+   //loadLegacyHeaderValues( templates, project, iteration );
    loadLegacyParameters( templates, project, iteration );
    // Now apply our current templates, which override the legacy templates.
    /* KI note: it seems that the 'legacy' routines are in fact the real thing
       and the comment above is no longer appropriate.  Only guessing though at this stage.
          "Cannot get repeat size for schema element \"" \
          << attribute \
          << "\"." );
+   }
    return ( childCount );
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::clearTransactionSpecificationValueTree( TDBAdvGrid & grid )
+{
         case Dbctrls::nbNext:   BtnName = "Next Record"; break;
         case Dbctrls::nbLast:   BtnName = "Last Record"; break;
         case Dbctrls::nbInsert:
+        {
              BtnName = "Insert Record";
+             AddTestCaseNodeClick(Sender);
+             TTreeNode*    dummyNode;
+             ResequenceTestCases(dummyNode);
+             //TxnStepsQuery->Edit();
              break;
+        }
         case Dbctrls::nbDelete: BtnName = "Delete Record";
+        {
-            BtnName = "Delete Record";
+            //BtnName = "Delete Record";
-            AnsiString  message;
+            //AnsiString  message;
-            int myRow = StepsGrid->GetRealRow();
+            //int myRow = StepsGrid->GetRealRow();
-         message.sprintf(
+        // message.sprintf(
-                            "Are you sure you want to delete all transactions from test step ('%s') %s? ",
+                            //"Are you sure you want to delete all transactions from test step ('%s') %s? ",
-                             StepsGrid->Cells[1][myRow],
+                             //StepsGrid->Cells[1][myRow],
-                             StepsGrid->Cells[2][myRow] );
+                             //StepsGrid->Cells[2][myRow] );
-         if ( MessageDlg( message, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0 ) == mrYes )
+         //if ( MessageDlg( message, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0 ) == mrYes )
-         {
+        // {
                 int scenario = TxnStepsQuery->FieldByName( "TESTSCENARIO_NO" )->AsInteger;
                 DeleteScenarioChildren(scenario);
-            }
+           // }
             break;
+        }
         case Dbctrls::nbEdit:   BtnName = "Edit"; break;
         case Dbctrls::nbCancel: BtnName = "Cancel Edits"; break;
         case Dbctrls::nbNext:   BtnName = "Next Record"; break;
         case Dbctrls::nbLast:   BtnName = "Last Record"; break;
         case Dbctrls::nbInsert:
+        {
              BtnName = "Insert Record";
-             refresh_testcases = false;
+             //refresh_testcases = false;
-             AddTestCaseNodeClick(Sender);
+             //AddTestCaseNodeClick(Sender);
-             TTreeNode*    dummyNode;
+             //TTreeNode*    dummyNode;
-             ResequenceTestCases(dummyNode);
+             //ResequenceTestCases(dummyNode);
-             TxnStepsQuery->Edit();
+            // TxnStepsQuery->Edit();
              break;
+        }
         case Dbctrls::nbDelete: BtnName = "Delete Record";
+        {
              BtnName = "Delete Record";
         case Dbctrls::nbCancel: BtnName = "Cancel Edits"; break;
         case Dbctrls::nbRefresh: BtnName = "Refresh Data"; break;
         default: BtnName = "Other"; break;
+    }
     //for (int J = 0; J < StepsGrid->RowCount; J++)
     //    StepsGrid->Cells[0][J] = IntToStr(J+1);
         query->SQL->Text = sql_statement;
         query->Open();
         int max_testcase_seqno = query->FieldByName("MAX_SEQNO")->AsInteger;
         sql_statement="";
-        sql_statement.sprintf("INSERT INTO TEST_SCENARIOS (PROJECT_CODE,ITERATION,USECASE,TESTCASE_ID,TESTCASE_SEQNO) "
+        sql_statement.sprintf("INSERT INTO TEST_SCENARIOS (PROJECT_CODE,ITERATION,USECASE,TESTCASE_ID,TESTCASE_SEQNO,REPEAT_COUNT) "
-                              "VALUES ('%s',%d,'%s','%s',%d) ",
+                              "VALUES ('%s',%d,'%s','%s',%d,%d) ",
                               m_currentproject.c_str(),
                               m_currentiteration,
                               m_currenttestcaseid.c_str(),
                               m_currenttestcaseid.c_str(),
-                              max_testcase_seqno+1);
+                              max_testcase_seqno+1,
+);
         query->SQL->Text = sql_statement;
         query->ExecSQL();
         Data_Module->IntegrationDBConnection->CommitTrans();
                m_transactionCache,
                *m_progressBar,
                scenario,
                m_schema_handle,
                m_currentiteration );
             try
+            {
                Data_Module->IntegrationDBConnection->BeginTrans();
                applyTemplatesToScenario( *m_progressBar, scenario );
                Data_Module->IntegrationDBConnection->CommitTrans();
    try
+   {
       TxnStepsQuery->Close();
-      //TestCasesTabSheet->TabVisible = true;
-        //MainPageControl->ActivePage = TestCasesTabSheet;
-     // TestScenariosTabSheet->TabVisible = false;
       if ( (m_currentproject.Length() > 0) && (m_currentiteration != 0) )
+      {
          TestCaseTreeView->Items->BeginUpdate();
          TestCaseTreeView->Items->EndUpdate();
          TestCaseTreeView->FullExpand();
          /* also refresh the Test Steps tab */
- //        if (TxnStepsQuery->State == dsEdit) TxnStepsQuery->Post();
-         // TxnStepsQuery->Close();
          TxnStepsQuery->SQL->Text = sql_statement;
          TxnStepsQuery->Open();
- //        TxnStepsQuery->Edit();
+        }
+    }
    __finally
+    {
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::TestCaseQueryBeforePost(TDataSet *DataSet)
+{
-   //DataSet->FieldByName("USECASE_ID")->AsString = DataSet->FieldByName("TESTCASE_ID")->AsString;
+   DataSet->FieldByName("USECASE_ID")->AsString = DataSet->FieldByName("TESTCASE_ID")->AsString;
    if( DataSet->FieldByName("CASE_REPEAT")->AsInteger < 1) DataSet->FieldByName("CASE_REPEAT")->AsInteger = 1;
    if( DataSet->FieldByName("REPEAT_DELAY")->AsInteger > 360) DataSet->FieldByName("REPEAT_DELAY")->AsInteger = 360;
-   if( DataSet->FieldByName("BATCH_SIZE")->AsInteger < 1) DataSet->FieldByName("BATCH_SIZE")->AsInteger = 1;
+   if( DataSet->FieldByName("BATCH_SIZE")->AsInteger < 1) DataSet->FieldByName("BATCH_SIZE")->AsInteger = 99;
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::TxnStepsQueryBeforeClose(TDataSet *DataSet)
+{
     if (DataSet->State == dsEdit )
+   {
-       //DataSet->FieldByName("TESTCASE_ID")->AsString = m_currenttestcaseid;
+       DataSet->FieldByName("TESTCASE_ID")->AsString = m_currenttestcaseid;
        //DataSet->FieldByName("USECASE")->AsString = m_currenttestcaseid;
        //DataSet->FieldByName("PROJECT_CODE")->AsString = m_currentproject;
        //DataSet->FieldByName("ITERATION")->AsInteger = m_currentiteration;
        if( DataSet->FieldByName("REPEAT_COUNT")->AsInteger < 1) DataSet->FieldByName("REPEAT_COUNT")->AsInteger = 1;
        DataSet->Post();
          EvaluationContext    context(definedVariableTable, sequences, *m_progressBar,
                                       messageDigest, hash, cryptographicServerProxy, timeEstimate );
          buildExecutionSchedule( iteration, testCase.c_str() );
          loadLegacyVariables( definedVariableTable, m_currentproject.c_str(), iteration );
          readSequences( sequences, m_currentproject.c_str(), m_currentiteration );
+         iteration.setBatchSize (TestCaseQuery->FieldByName( "BATCH_SIZE" )->Text.ToInt());
          try
+         {
             int      count    = 0;
             bool     generated   = false;
             if ( scenarios.empty() )
+            {
                // generate for an entire test case
                // first setup the environment
                count = iteration.getTransactionCount();
-               iteration.setBatchSize (TestCaseQuery->FieldByName( "BATCH_SIZE" )->Text.ToInt());
                iteration.setTestCaseName (m_currenttestcaseid.c_str());
                iteration.setCaseRepeat (m_currentcaserepeat);
                iteration.setRepeatDelay (m_currentcasedelay);
-               // now preapre the log file   and progress bars
-               message = DateToStr(Date());
-               stream.logToManifest (message.c_str(), false);
-               message = "Generating for Test Case " + testCase
-                                     + ". " +  TestCaseQuery->FieldByName( "NAME" )->AsString ;
-               stream.logToManifest (message.c_str(), false);
-               message.sprintf("Each run will create %d transactions with batch size of %d",count,iteration.getBatchSize());
-               stream.logToManifest (message.c_str(), false);
-               m_progressBar->open( count );
-               timeEstimate.start( count  );
-               // now run the testcase multiple times
-               generated = true;
+               if (count > 0)
-               for ( int repeat = 1; repeat <= m_currentcaserepeat && generated; ++repeat )
+               {
-                  // first more logging and status bar info
+                  // now preapre the log file   and progress bars
-                  stream.logToManifest (" ", false);
+                  message = DateToStr(Date());
-                  message.sprintf("run %d of %d started.",repeat,m_currentcaserepeat);
-                  stream.logToManifest (message.c_str(), true);
+                  stream.logToManifest (message.c_str(), false);
-                  message.sprintf("%s: run %d of %d in progress.  %d transactions with batch size of %d",
+                  message = "Generating for Test Case " + testCase
-                                  m_currenttestcaseid.c_str(),repeat,m_currentcaserepeat,count, iteration.getBatchSize());
+                                        + ". " +  TestCaseQuery->FieldByName( "NAME" )->AsString ;
-                  MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                  Application->ProcessMessages();
+                  stream.logToManifest (message.c_str(), false);
-                  // now the real thing:  generate the test case
+                  message.sprintf("Each run will create %d transactions with batch size of %d",count,iteration.getBatchSize());
-                  startTime = time(NULL);
-                  if (!iteration.generate( stream, generateHeaders, context ) )
+                  stream.logToManifest (message.c_str(), false);
-                  {
-                     generated = false;
+                  m_progressBar->open( count );
-                     break;
+                  timeEstimate.start( count  );
-                  }
-                  timeEstimate.stop();
-                  m_progressBar->close();
+                  // now run the testcase multiple times
+                  generated = true;
-                  if (!generated)
+                  for ( int repeat = 1; repeat <= m_currentcaserepeat && generated; ++repeat )
+                  {
-                      // problems with the generation  ..  best we can do for now is report it in status bar and log
-                      message.sprintf("run %d encountered a problem." ,repeat);
+                     // first more logging and status bar info
-                      stream.logToManifest (message.c_str(), true);
+                     stream.logToManifest (" ", false);
-                      message.sprintf("%s: run %d of %d encountered a problem." ,
-                                          m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat);
-                      MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                      Application->ProcessMessages();
-                  }
-                  else
-                  {
-                     // last run was good so check if we have to do it again
-                     // but first update log
-                     message.sprintf("run %d completed. Elapsed time for run was %d seconds" ,
+                     message.sprintf("run %d of %d started.",repeat,m_currentcaserepeat);
-                                     repeat, time(NULL) - startTime);
                      stream.logToManifest (message.c_str(), true);
+                     message.sprintf("%s: run %d of %d in progress.  %d transactions with batch size of %d",
+                                     m_currenttestcaseid.c_str(),repeat,m_currentcaserepeat,count, iteration.getBatchSize());
+                     MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                     Application->ProcessMessages();
+                     // now the real thing:  generate the test case
+                     startTime = time(NULL);
+                     if (!iteration.generate( stream, generateHeaders, context ) )
+                     {
+                        generated = false;
+                        break;
+                     }
+                     timeEstimate.stop();
+                     m_progressBar->close();
-                     if ( repeat < m_currentcaserepeat )
+                     if (!generated)
+                     {
-                        // do it again but possibly wait here before starting next session
+                         // problems with the generation  ..  best we can do for now is report it in status bar and log
-                        for (int delayRepeat = m_currentcasedelay - (time(NULL) - startTime); delayRepeat > 0 ; --delayRepeat)
+                         message.sprintf("run %d encountered a problem." ,repeat);
-                        {
+                         stream.logToManifest (message.c_str(), true);
-                           message.sprintf("%s: run %d of %d completed.  Pausing generation for %d seconds" ,
+                         message.sprintf("%s: run %d of %d encountered a problem." ,
-                                          m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat, delayRepeat);
+                                             m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat);
-                           MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                         MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                           Application->ProcessMessages();
+                         Application->ProcessMessages();
-                           Sleep (1000);
-                        }
+                     }
                      else
                      {
+                        // last run was good so check if we have to do it again
+                        // but first update log
+                        message.sprintf("run %d completed. Elapsed time for run was %d seconds" ,
+                                        repeat, time(NULL) - startTime);
+                        stream.logToManifest (message.c_str(), true);
+                        if ( repeat < m_currentcaserepeat )
+                        {
+                           // do it again but possibly wait here before starting next session
+                           for (int delayRepeat = m_currentcasedelay - (time(NULL) - startTime); delayRepeat > 0 ; --delayRepeat)
+                           {
+                              message.sprintf("%s: run %d of %d completed.  Pausing generation for %d seconds" ,
+                                             m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat, delayRepeat);
+                              MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                              Application->ProcessMessages();
+                              Sleep (1000);
+                           }
+                        }
+                        else
+                        {
-                           // all done
+                              // all done
-                           message.sprintf("%s: run %d of %d completed. " ,
+                              message.sprintf("%s: run %d of %d completed. " ,
-                                          m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat);
+                                             m_currenttestcaseid.c_str(),repeat, m_currentcaserepeat);
-                           MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                              MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                           Application->ProcessMessages();
+                              Application->ProcessMessages();
+                        }
                      }
                   }
                }
+               else
+               {
+                  MessageDlg( "No transactions to generate", mtWarning, TMsgDlgButtons() << mbOK, 0 );
+               }
             } // end of test case generation
             else
+            {
                // single test step generation
+               // note code caters for a list of scenarios but the GUI should only deliver a list of 1
+               std::string batchName;
+               TestScenario * scenario = 0;
                std::vector< int >::const_iterator where = scenarios.begin();
                for ( where = scenarios.begin(); where != scenarios.end(); ++where )
+               {
-                  count += iteration.
+                  scenario = &iteration.findTestScenario( *where );
-                  findTestScenario( *where ).getTransactionCount();
+                  count += scenario->getTransactionCount();
+               }
-               // now preapre the log file   and progress bars
-               message = DateToStr(Date());
-               stream.logToManifest (message.c_str(), false);
-               message = "Generating for a single Test Step " ;
-               stream.logToManifest (message.c_str(), false);
-               message.sprintf("The step will create %d transactions with batch size of %d",count,iteration.getBatchSize());
-               stream.logToManifest (message.c_str(), false);
-               m_progressBar->open( count );
-               timeEstimate.start( count );
-               generated = true;
+               if (count > 0)
-               for ( where = scenarios.begin(); where != scenarios.end(); ++where )
+               {
-                 // first more logging and status bar info
+                  // now preapre the log file   and progress bars
-                  stream.logToManifest (" ", false);
-                  message.sprintf("test step started.");
+                  message = DateToStr(Date());
-                  stream.logToManifest (message.c_str(), true);
+                  stream.logToManifest (message.c_str(), false);
-                  message.sprintf("test step generation in progress.  %d transactions with batch size of %d",
-                                  count, iteration.getBatchSize());
+                  message = "Generating for a single Test Step " ;
-                  MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                  Application->ProcessMessages();
+                  stream.logToManifest (message.c_str(), false);
-                  // now the real thing:  generate the test step
+                  message.sprintf("The step will create %d transactions with batch size of %d",count,iteration.getBatchSize());
-                  startTime = time(NULL);
+                  stream.logToManifest (message.c_str(), false);
-                  if ( !iteration.findTestScenario( *where ).generate(
-                        stream,
-                        generateHeaders,
+                  m_progressBar->open( count );
-                        context ) )
+                  timeEstimate.start( count );
-                  {
-                     generated = false;
+                  generated = true;
-                     // problems with the generation  ..  best we can do for now is report it in status bar and log
-                     message.sprintf("test step encountered a problem.");
-                     stream.logToManifest (message.c_str(), true);
-                     message.sprintf("generation for test step encountered a problem." );
+                  for ( where = scenarios.begin(); where != scenarios.end(); ++where )
-                     MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
-                     Application->ProcessMessages();
-                     break;
-                  }
-                  else
+                  {
+                    // first more logging and status bar info
-                     // all done
+                     stream.logToManifest (" ", false);
-                     message.sprintf("test step completed.  Elapsed time for run was %d seconds",time(NULL) - startTime);
+                     message.sprintf("test step started.");
                      stream.logToManifest (message.c_str(), true);
-                     message.sprintf("generation for test step completed." );
+                     message.sprintf("test step generation in progress.  %d transactions with batch size of %d",
+                                     count, iteration.getBatchSize());
                      MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                      Application->ProcessMessages();
+                     // for test step we setup the filename here not in the iteration class which caters for test cases
+                     scenario = &iteration.findTestScenario( *where );
+                     batchName =  scenario->buildBatchName
+                                         (batchName, scenario->getScenarioName() );
+                     stream.newBatch(iteration.getBatchSize(),batchName);
+                     // now the real thing:  generate the test step
+                     startTime = time(NULL);
+                     if ( !scenario->generate(
+                           stream,
+                           generateHeaders,
+                           context ) )
+                     {
+                        generated = false;
+                        // problems with the generation  ..  best we can do for now is report it in status bar and log
+                        message.sprintf("test step encountered a problem.");
+                        stream.logToManifest (message.c_str(), true);
+                        message.sprintf("generation for test step encountered a problem." );
+                        MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                        Application->ProcessMessages();
+                        break;
+                     }
+                     else
+                     {
+                        // all done
+                        message.sprintf("test step completed.  Elapsed time for run was %d seconds",time(NULL) - startTime);
+                        stream.logToManifest (message.c_str(), true);
+                        message.sprintf("generation for test step completed." );
+                        MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
+                        Application->ProcessMessages();
+                     }
+                  }
+               }
+               else
+               {
+                  MessageDlg( "No transactions to generate", mtWarning, TMsgDlgButtons() << mbOK, 0 );
+               }
+            }
             // generation complete so just finish off and tidy up
             if ( generated )
+            {
                writeSequences(
                   sequences,
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::UdTransferBtnClick(TObject *Sender)
+{
-    UdTransferHistoryForm->Show();
+    //UdTransferHistoryForm->Show();
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::FormCloseQuery(TObject *Sender, bool &CanClose)
+{
     CanClose = true;
     // Warn if there are transfer tasks currently running
-    if( (m_transferManager != NULL) &&
+    /*if( (m_transferManager != NULL) &&
         (m_transferManager->IsTaskRunning()) )
+    {
         AnsiString msg = "There are UD transfers currently in progress. Quitting now will abort these tasks.";
         msg += "\nAre you sure you want to continue?";
         if( MessageDlg( msg, mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0 ) == mrNo )
+        {
             CanClose = false;
+        }
+    }
+    */
+}
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::TestCaseTreeViewKeyUp(TObject *Sender,
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
 void __fastcall TMainForm::ExitClick(TObject *Sender)
+{
     Close();
+}
+void __fastcall TMainForm::AboutClick(TObject *Sender)
+{
+     AboutForm->Show();
+}
+//---------------------------------------------------------------------------

Subversion Repositories DevTools

(root)/TxnTestManager/branches/Stockholm/src/ttm/Main.cpp – Rev 2263 → 2265