diff --git a/TestPhone.st b/TestPhone.st index 13aa9fb..681a758 100644 --- a/TestPhone.st +++ b/TestPhone.st @@ -142,7 +142,8 @@ Object subclass: IPAConfig [ yourself ] sendLU: aPhone [ - (self doLU: aPhone) waitForTermination. + (self doLU: aPhone) + openConnection; waitForTermination. ] doCallNumber: aPhone nr: aNr [ @@ -152,7 +153,8 @@ Object subclass: IPAConfig [ ] callNumber: aPhone nr: aNumber [ - ^ (self doCallNumber: aPhone nr: aNumber) waitForTermination. + ^ (self doCallNumber: aPhone nr: aNumber) + openConnection; waitForTermination. ] doUSSD: aPhone nr: aNr [ @@ -162,7 +164,8 @@ Object subclass: IPAConfig [ ] sendUSSD: aPhone nr: aNr [ - ^ (self doUSSD: aPhone nr: aNr) waitForTermination. + ^ (self doUSSD: aPhone nr: aNr) + openConnection; waitForTermination. ] ]