--- a/RegressionTests__PTYTest.st	Mon Feb 03 12:20:33 2003 +0100
+++ b/RegressionTests__PTYTest.st	Mon Feb 03 13:50:32 2003 +0100
@@ -20,6 +20,27 @@
     slave := ptyPair at:2.
 
     master nextPutLine:'1234567890'.
+    '1234567890' do:[:ch |
+        self assert:(slave next = ch).
+    ].
+    self assert:(slave next = Character linefeed).
+
+    master close.
+    slave close.
+
+    "
+     self new testPTY1
+    "
+!
+
+testPTY2
+    |ptyPair master slave|
+
+    ptyPair := ExternalStream makePTYPair.
+    master := ptyPair at:1.
+    slave := ptyPair at:2.
+
+    master nextPutLine:'1234567890'.
     self assert:(slave nextLine = '1234567890').
 
     slave nextPutLine:'1234567890'.
@@ -29,7 +50,7 @@
     slave close.
 
     "
-     self new testPTY1
+     self new testPTY2
     "
 ! !