JavaClassReloaderTests.st
changeset 3626 7be362f041a8
parent 3623 cfae550eeda1
child 4008 916d24efebb8
equal deleted inserted replaced
3625:ad5f53826f0e 3626:7be362f041a8
  1012     3) check that both versions exist after GC
  1012     3) check that both versions exist after GC
  1013     4) throw away the reference to the first version
  1013     4) throw away the reference to the first version
  1014     5) check only second version exists after GC
  1014     5) check only second version exists after GC
  1015     "
  1015     "
  1016 
  1016 
  1017     <skip> "/ Has to be reviewd
       
  1018 
       
  1019     | jclass1 jinst1 jclass2 jinst2 |
  1017     | jclass1 jinst1 jclass2 jinst2 |
       
  1018 
       
  1019     self skipIf: true description: 'To be reviewd'.
  1020 
  1020 
  1021     jclass1 := self compileAndRegister:'
  1021     jclass1 := self compileAndRegister:'
  1022 public class test_old_versions_cleaned_01 { 
  1022 public class test_old_versions_cleaned_01 { 
  1023     public String foo = "foo";
  1023     public String foo = "foo";
  1024 }'.
  1024 }'.
  1044     ObjectMemory scavenge.  
  1044     ObjectMemory scavenge.  
  1045 
  1045 
  1046     self assert: jclass2 hasMultipleVersions not.
  1046     self assert: jclass2 hasMultipleVersions not.
  1047 
  1047 
  1048     "Created: / 28-10-2013 / 12:28:50 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
  1048     "Created: / 28-10-2013 / 12:28:50 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
  1049     "Modified: / 17-08-2014 / 08:42:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1049     "Modified: / 20-09-2016 / 21:30:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1050     "Modified (comment): / 20-01-2015 / 10:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  1051 ! !
  1050 ! !
  1052 
  1051 
  1053 !JavaClassReloaderTests methodsFor:'tests - hierarchy'!
  1052 !JavaClassReloaderTests methodsFor:'tests - hierarchy'!
  1054 
  1053 
  1055 test_hierarchy_00
  1054 test_hierarchy_00