Ticket #81: bug_81_Saving_snapshot_breakes_the_image.rb

#!/usr/bin/ruby

require 'fileutils'
include FileUtils

File.open("../lib/smalltalkx/6.2.5/lib/rc.d/99-bug_81_Saving_snapshot_breakes_the_image.rc", "w") do | f |
  f.write <<END
(OperatingSystem getEnvironment: 'bug_81_Saving_snapshot_breakes_the_image') = '1' ifTrue:[
  Smalltalk addStartBlock:[
    Smalltalk imageRestartTime isNil ifTrue:[
      "FRESH start"
      (Smalltalk at: #'Tools::NewSystemBrowser') openAt: 1@1.
      Stdout nextPutLine: 'Will save a snapshot and exit in 3 seconds.'.
      Delay waitForSeconds: 3.
      ObjectMemory snapShot.
      Smalltalk exit: 123.
    ] ifFalse:[
      "RESTARTING from a snapshot"
      (Smalltalk at: #'WorkspaceApplication') openAt: 1@1.
      Stdout nextPutLine: 'Restarted from snapshot.'.
      Stdout nextPutLine: 'Will exit in 3 seconds.'.    
      Delay waitForSeconds: 3.
      Smalltalk exit: 121.
    ]    
  ]
]
END
end     

ENV['bug_81_Saving_snapshot_breakes_the_image'] = '1'

# Step 1. 
rm_f 'st.img'; rm_f 'st.sav'; rm_f 'st.chg'

# Step 2. 
system 'stx.bat -I'
if $?.exitstatus != 123 then
  raise Exception.new("stx failed to execute (status #{$?.exitstatus})");
end

if not File.exist? 'st.img' then
  raise Exception.new("st.img was not saved")
end

# Step 3.
system 'stx.bat -i st.img'
if $?.exitstatus != 121 then
    puts 
    puts "Start gdb as:"
    puts 
    puts '  C:\mingw64\bin\gdb.exe --args stx-bin.com -i st.img'
    puts 
    raise Exception.new("stx failed to restart from a snapshot (status #{$?.exitstatus})");
end

puts 
puts "PASSED"