Mercurial Mercurial > hg > stx-libjava / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JavaReleaseTests.st
branchcvs_MAIN_tracking
changeset 3401 f14cd4bbd33f
parent 3382 12d325c8b18e
child 3399 673ed393d7b3
child 3406 e18d5c89221d 
--- a/JavaReleaseTests.st	Mon Mar 02 16:09:34 2015 +0000
+++ b/JavaReleaseTests.st	Wed Mar 11 11:41:31 2015 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
@@ -114,9 +116,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 03-04-2014 / 12:50:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:05:06 / jv"
 !
 
 test_linux_OpenJDK_1_6_0_30_jre
@@ -143,9 +149,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 03-04-2014 / 12:53:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:05:00 / jv"
 !
 
 test_linux_OpenJDK_1_7_0_51_jdk
@@ -172,9 +182,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK7))
 
     "Created: / 03-04-2014 / 12:54:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:54 / jv"
 !
 
 test_linux_OpenJDK_1_7_0_51_jre
@@ -201,9 +215,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK7))
 
     "Created: / 03-04-2014 / 12:54:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:48 / jv"
 !
 
 test_linux_OracleJDK_1_7_0_13_jdk
@@ -229,9 +247,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home).
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK7))
 
     "Created: / 03-04-2014 / 14:09:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:39 / jv"
 !
 
 test_linux_OracleJDK_1_7_0_13_jre
@@ -257,9 +279,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home).
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.          
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK7))
 
     "Created: / 03-04-2014 / 13:04:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:32 / jv"
 !
 
 test_linux_OracleJDK_1_8_0_jdk
@@ -285,9 +311,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 03-04-2014 / 14:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:22 / jv"
 !
 
 test_linux_OracleJDK_1_8_0_jre
@@ -313,9 +344,76 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 03-04-2014 / 14:13:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:18 / jv"
+!
+
+test_linux_Zulu_7
+
+    | java_home |
+
+    java_home :=  #(
+            '/usr/lib/jvm/zulu-7-amd64' 
+            ) detect:[:each | each asFilename exists ] ifNone:[ nil ].
+
+    java_home notNil ifTrue:[ java_home := java_home asFilename ].                
+    self 
+        skipIf:  (java_home isNil or:[ java_home exists not ])
+        description: ('Directory does not exist (%1)' bindWith:(java_home notNil 
+                                   ifTrue:[ java_home pathName ]
+                                   ifFalse:[ 'nil' ])).     
+
+    self assert: (JavaRelease openJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease oracleJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home).
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.
+
+    self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::Zulu7))
+
+    "Created: / 11-03-2015 / 11:39:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_liux_Zulu_8
+
+    | java_home |
+
+    java_home :=  #(
+            '/usr/lib/jvm/zulu-8-amd64'   
+            ) detect:[:each | each asFilename exists ] ifNone:[ nil ].
+
+    java_home notNil ifTrue:[ java_home := java_home asFilename ].                
+    self 
+        skipIf:  (java_home isNil or:[ java_home exists not ])
+        description: ('Directory does not exist (%1)' bindWith:(java_home notNil 
+                                   ifTrue:[ java_home pathName ]
+                                   ifFalse:[ 'nil' ])).     
+
+    self assert: (JavaRelease openJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease oracleJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home).
+
+    self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::Zulu8))
+
+    "Created: / 11-03-2015 / 11:39:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_windows_OracleJDK_1_6_0_34_jdk
@@ -341,9 +439,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 03-04-2014 / 16:45:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:10 / jv"
 !
 
 test_windows_OracleJDK_1_6_0_34_jre
@@ -369,9 +472,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 03-04-2014 / 16:45:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:04:05 / jv"
 !
 
 test_windows_OracleJDK_1_6_0_45_jdk
@@ -397,9 +505,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 20-02-2015 / 14:41:29 / jv"
+    "Modified: / 11-03-2015 / 11:04:01 / jv"
 !
 
 test_windows_OracleJDK_1_6_0_45_jre
@@ -425,9 +538,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OpenJDK6))
 
     "Created: / 20-02-2015 / 14:41:38 / jv"
+    "Modified: / 11-03-2015 / 11:03:55 / jv"
 !
 
 test_windows_OracleJDK_1_7_0_13_jdk
@@ -453,9 +571,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home).
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK7))
 
     "Created: / 03-04-2014 / 16:50:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:03:48 / jv"
 !
 
 test_windows_OracleJDK_1_7_0_13_jre
@@ -481,9 +604,13 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home).
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK7))
 
     "Created: / 03-04-2014 / 16:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:03:41 / jv"
 !
 
 test_windows_OracleJDK_1_8_0_05_jdk
@@ -509,9 +636,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 20-02-2015 / 14:40:47 / jv"
+    "Modified: / 11-03-2015 / 11:03:31 / jv"
 !
 
 test_windows_OracleJDK_1_8_0_05_jre
@@ -537,9 +669,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 20-02-2015 / 14:41:02 / jv"
+    "Modified: / 11-03-2015 / 11:03:26 / jv"
 !
 
 test_windows_OracleJDK_1_8_0_jdk
@@ -565,9 +702,14 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+    
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 03-04-2014 / 17:03:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:03:20 / jv"
 !
 
 test_windows_OracleJDK_1_8_0_jre
@@ -593,9 +735,75 @@
     self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
     self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home).
 
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.      
+
     self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::OracleJDK8))
 
     "Created: / 03-04-2014 / 17:04:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-03-2015 / 11:03:13 / jv"
+!
+
+test_windows_Zulu_7
+
+    | java_home |
+
+    java_home :=  #(
+            'C:\Program Files\Zulu\zulu-7' 
+            ) detect:[:each | each asFilename exists ] ifNone:[ nil ].
+
+    java_home notNil ifTrue:[ java_home := java_home asFilename ].                
+    self 
+        skipIf:  (java_home isNil or:[ java_home exists not ])
+        description: ('Directory does not exist (%1)' bindWith:(java_home notNil 
+                                   ifTrue:[ java_home pathName ]
+                                   ifFalse:[ 'nil' ])).     
+
+    self assert: (JavaRelease openJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease oracleJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home).
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home) not.
+
+    self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::Zulu7))
+
+    "Created: / 11-03-2015 / 11:02:50 / jv"
+!
+
+test_windows_Zulu_8
+
+    | java_home |
+
+    java_home :=  #(
+            'C:\Program Files\Zulu\zulu-8' 
+            ) detect:[:each | each asFilename exists ] ifNone:[ nil ].
+
+    java_home notNil ifTrue:[ java_home := java_home asFilename ].                
+    self 
+        skipIf:  (java_home isNil or:[ java_home exists not ])
+        description: ('Directory does not exist (%1)' bindWith:(java_home notNil 
+                                   ifTrue:[ java_home pathName ]
+                                   ifFalse:[ 'nil' ])).     
+
+    self assert: (JavaRelease openJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease openJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease oracleJDK6 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease oracleJDK8 validateJavaHome: java_home) not.
+
+    self assert: (JavaRelease zulu7 validateJavaHome: java_home) not.
+    self assert: (JavaRelease zulu8 validateJavaHome: java_home).
+
+    self assert: ((JavaRelease inDirectory: java_home) isKindOf: (JavaRelease::Zulu8))
+
+    "Created: / 11-03-2015 / 11:02:11 / jv"
 ! !
 
 !JavaReleaseTests class methodsFor:'documentation'!
hg/stx-libjava