Scopo
Salva su file tutti i GUID di tutti gli oggetti visti nella sessione.
Sintassi
Applicazione.DumpGUIDs(id sessione, percorso file)
Argomenti
ID Sessione | E' un numero intero contenente l'ID della sessione di test di cui si vogliono salvare i GUID. |
Percorso file | E' il percorso completo sul quale salvare il file con i GUID. |
Esempio di codice
// *********************************************************
// Salvo la copertura su file
// *********************************************************
public void TestSuite.Copertura()
{
int NumeroSessioni = 0 //
//
NumeroSessioni := ZERO
//
// Svuoto l'elenco delle Test Suite che devo analizzare
delete from DTTTestSuites
//
// Se è stato selezionata una test suite, aggiungo lei per prima
if NOT(IsNull(TabellaParametri.ID))
...
//
// Cerco tutte le test suite figlie di quella selezionata (per ogni test
// suite trovata inserisco un record nella tabella IMDB)
Teamworks.TrovaTestSuite(NullValue(TabellaParametri.ID, --(ONE)))
//
// Cancello il file se esisteva
try
...
//
// Per ogni suite
for each row
{
select
IDTestSuite := ID
from
DTTTestSuites // Master Table
//
record TestSuite
int IDTestSuite //
//
// Recupero tutte le sessioni nella suite
for each row
{
select
IDSession := ID
from
DTTSessions // Master Table
where
TestSuite = TestSuite.IDTestSuite
IsNull(TestExecution)
//
record Session
int IDSession //
//
// Dumpo i GUID sul file
Teamworks.DumpGUIDs(Session.IDSession, Path() +c Separatore
Directory +c Coverage.lst)
NumeroSessioni := NumeroSessioni + ONE
}
}
//
// Svuoto l'elenco delle Test Suite che devo eseguire
delete from DTTTestSuites
//
if NumeroSessioni > ZERO
{
Teamworks.OpenDocument(Coverage.lst, True, ??)
}
else //
{
Teamworks.MessageBox(Nessuna sessione trovata)
}
}
// Salvo la copertura su file
// *********************************************************
public void TestSuite.Copertura()
{
int NumeroSessioni = 0 //
//
NumeroSessioni := ZERO
//
// Svuoto l'elenco delle Test Suite che devo analizzare
delete from DTTTestSuites
//
// Se è stato selezionata una test suite, aggiungo lei per prima
if NOT(IsNull(TabellaParametri.ID))
...
//
// Cerco tutte le test suite figlie di quella selezionata (per ogni test
// suite trovata inserisco un record nella tabella IMDB)
Teamworks.TrovaTestSuite(NullValue(TabellaParametri.ID, --(ONE)))
//
// Cancello il file se esisteva
try
...
//
// Per ogni suite
for each row
{
select
IDTestSuite := ID
from
DTTTestSuites // Master Table
//
record TestSuite
int IDTestSuite //
//
// Recupero tutte le sessioni nella suite
for each row
{
select
IDSession := ID
from
DTTSessions // Master Table
where
TestSuite = TestSuite.IDTestSuite
IsNull(TestExecution)
//
record Session
int IDSession //
//
// Dumpo i GUID sul file
Teamworks.DumpGUIDs(Session.IDSession, Path() +c Separatore
Directory +c Coverage.lst)
NumeroSessioni := NumeroSessioni + ONE
}
}
//
// Svuoto l'elenco delle Test Suite che devo eseguire
delete from DTTTestSuites
//
if NumeroSessioni > ZERO
{
Teamworks.OpenDocument(Coverage.lst, True, ??)
}
else //
{
Teamworks.MessageBox(Nessuna sessione trovata)
}
}
Ultima modifica: 23/03/2021 / Validità: da 6.5.2680