+ New file, MPW script for assembling, linking and running tests on a MacOS target

tests/utils/macos/LinkRunTests

@@ -0,0 +1,174 @@
+#Assembles, links and run tests of FreePascal
+#Param 1, the directory with the tests to perform.
+#Note versions can be either 2 or 3 fields, e g 1.1  1.0.10
+
+Set debugverbose 1
+Directory {1}
+Echo "** Assembles, links and run tests in "{1}" **" 
+
+#Delete -i Å.o
+Set nrOfSucceded 0
+Set nrOfFailed 0
+
+#Set compiler version
+Set compver '1.9' #Must be at least two fields
+If `Evaluate "{compver}" !~ /([0-9]*)¨1.([0-9]*)¨2.([0-9]*)¨3/`
+  If `Evaluate "{compver}" !~ /([0-9]*)¨1.([0-9]*)¨2/`
+    Echo Error in compiler version no
+    Exit 1
+  Else
+    Set ¨3 0
+  End
+End
+Set cv1 {¨1};Set cv2 {¨2}; Set cv3 {¨3}
+
+#Iterate through tests
+For sourceWithExt In Å.s
+  (Evaluate "{sourceWithExt}" =~ /(([Â.])*)¨1Å/) > Dev:Null
+  Set appname {¨1}
+  Set testdirectives ""
+  Set testdirectives "`StreamEdit {appname}.pp ¶
+      -d -e "/¶{[ ¶t]*(%Å*)¨1[ ¶t]*¶}/ Print ¨1"`" > Dev:Null
+  Echo "============================================================="
+
+  If {debugverbose}
+    Echo {testdirectives}
+  End
+
+  If `Evaluate "{testdirectives}" =~ /Å%CPU=([,_0-9A-Za-z]*)¨1Å/`
+    If `Evaluate "{¨1}" !~ /ÅpowerpcÅ/`
+      Echo Skipped {appname}. Test only for CPU: "{¨1}"
+      Continue
+    End
+  End
+  
+  If `Evaluate "{testdirectives}" =~ /Å%SKIPCPU=([,_0-9A-Za-z]*)¨1Å/`
+    If `Evaluate "{¨1}" =~ /ÅpowerpcÅ/`
+      Echo Skipped {appname}. Test not for CPU: {¨1}
+      Continue
+    End
+  End
+  
+  If `Evaluate "{testdirectives}" =~ /Å%TARGET=([,_0-9A-Za-z]*)¨1Å/`
+    If `Evaluate "{¨1}" !~ /ÅmacosÅ/`
+      Echo Skipped {appname}. Test only for target: {¨1}
+      Continue
+    End
+  End
+  
+  If `Evaluate "{testdirectives}" =~ /Å%SKIPTARGET=([,_0-9A-Za-z]*)¨1Å/`
+    If `Evaluate "{¨1}" =~ /ÅmacosÅ/`
+      Echo Skipped {appname}. Test not for target: {¨1}
+      Continue
+    End
+  End
+
+  If `Evaluate "{testdirectives}" =~ /Å%VERSION=([0-9.]*)¨1Å/`
+    Set minver {¨1}
+    If `Evaluate "{minver}" !~ /([0-9]*)¨1.([0-9]*)¨2.([0-9]*)¨3/`
+      If `Evaluate "{minver}" !~ /([0-9]*)¨1.([0-9]*)¨2/`
+        Echo Skipped {appname}. Error in version no: {minver}
+        Continue
+      Else
+        Set ¨3 0
+      End
+    End
+    
+    If Â(({cv1}> {¨1}) || (({cv1}=={¨1}) && ¶
+           (({cv2}> {¨2}) || (({cv2}=={¨2}) && ¶
+           ({cv3}>={¨3})))))
+      Echo Skipped {appname}. Compiler too old, test requires at least: {minver}
+      Continue
+    End
+  End
+  
+  If `Evaluate "{testdirectives}" =~ /Å%MAXVERSION=([0-9.]*)¨1Å/`
+    Set maxver {¨1}
+    If `Evaluate "{maxver}" !~ /([0-9]*)¨1.([0-9]*)¨2.([0-9]*)¨3/`
+      If `Evaluate "{maxver}" !~ /([0-9]*)¨1.([0-9]*)¨2/`
+        Echo Skipped {appname}. Error in version no: {maxver}
+        Continue
+      Else
+        Set ¨3 0
+      End
+    End
+    
+    If Â(({cv1}< {¨1}) || (({cv1}=={¨1}) && ¶
+           (({cv2}< {¨2}) || (({cv2}=={¨2}) && ¶
+           ({cv3}<={¨3})))))
+      Echo Skipped {appname}. Compiler too new, test requires no more than: {maxver}
+      Continue
+    End
+  End
+
+  If `Evaluate "{testdirectives}" =~ /Å%NOTE=([Â%]*)¨1Å/`
+    Echo Note: {¨1}
+  End
+
+  # Start compiling
+  Echo Start compiling "{appname}"
+  
+  SetFile -c 'MPS ' -t 'TEXT' {appname}_ppas
+
+  Set Exit 0
+  Execute {appname}_ppas
+
+  If "{Status}" != 0
+    Set Exit 1
+    Echo Compiling of "{appname}" failed
+    Set nrOfFailed `Evaluate {nrOfFailed}+1`
+    If {debugverbose}
+      StreamEdit  {appname}.pp -d -e "1,15 Print"
+    End
+    Continue
+  Else
+    Set Exit 1
+    Echo Compiling of "{appname}" succeded
+  End
+  
+  If `Evaluate "{testdirectives}" =~ /Å%NORUNÅ/`
+    Echo Skipped running of {appname} due to option NORUN
+    Continue
+  End
+
+  If `Evaluate "{testdirectives}" =~ /Å%INTERACTIVEÅ/`
+    Echo Skipped running of {appname} due to option INTERACTIVE
+    Continue
+  End
+
+  If 1
+    If `Evaluate "{testdirectives}" =~ /Å%RESULT=([0-9]*)¨1Å/`
+      Set expectedresult {¨1}
+    Else
+      Set expectedresult 0
+    End
+    
+    #Execute test program
+    Set Exit 0
+    {appname}
+    Set actualresult {Status}
+    Set Exit 1
+
+    If {actualresult} != 0
+      Echo Running of "{appname}" failed
+    Else
+      Echo Running of "{appname}" succeded
+    End
+
+    Echo "Exit code was {actualresult}, expected {expectedresult}"
+    If "{actualresult}" != "{expectedresult}"
+      Echo Failed test "{appname}"
+      Set nrOfFailed `Evaluate {nrOfFailed}+1`
+      If {debugverbose}
+        StreamEdit  {appname}.pp -d -e "1,15 Print"
+      End
+    Else
+      Echo Succeded test "{appname}"
+      Set nrOfSucceded `Evaluate {nrOfSucceded}+1`
+    End
+  End
+End
+Echo "============================================================="
+Echo '** Test session finished. **'
+Echo "No of succeded tests: {nrOfSucceded}"
+Echo "No of failed tests: {nrOfFailed}"