pgplot: use testpath

1 files changed, 7 insertions, 10 deletions

diff --git a/Library/Formula/pgplot.rb b/Library/Formula/pgplot.rb
index 41419f148..ab8fa74c5 100644
--- a/Library/Formula/pgplot.rb
+++ b/Library/Formula/pgplot.rb
@@ -103,16 +103,13 @@ EOS
   end
 
   test do
-    File.open('test_pgplot', 'w') do |t|
-      t.write(<<-EOS
-spawn #{prefix}/examples/pgdemo1
-expect {
-  NULL     {send "/XWINDOW\n"; exp_continue}
-  RETURN   {send "\n"; exp_continue}
-}
-EOS
-              )
-    end
+    (testpath/'test_pgplot').write <<-EOS.undent
+      spawn #{prefix}/examples/pgdemo1
+      expect {
+        NULL     {send "/XWINDOW\n"; exp_continue}
+        RETURN   {send "\n"; exp_continue}
+      }
+      EOS
     system "expect test_pgplot; killall pgxwin_server"
   end
 end