Checkin failing test case related to load once paths

git-svn-id: http://svn-commit.rubyonrails.org/rails/trunk@5781 5ecf4fe2-1ee6-0310-87b1-e25e094e27de

activesupport/test/autoloading_fixtures/cross_site_dependency.rb

@@ -0,0 +1,2 @@
+class CrossSiteDependency
+end

activesupport/test/dependencies/cross_site_depender.rb

@@ -0,0 +1,3 @@
+class CrossSiteDepender
+  CrossSiteDependency
+end

activesupport/test/dependencies_test.rb

@@ -702,4 +702,32 @@ class DependenciesTest < Test::Unit::TestCase
     assert ! defined?(DeleteMe)
   end
   
+  def test_load_once_constants_should_not_be_unloaded
+    with_loading 'autoloading_fixtures' do
+      Dependencies.load_once_paths = Dependencies.load_paths
+      ::A
+      assert defined?(A)
+      Dependencies.clear
+      assert defined?(A)
+    end
+  ensure
+    Dependencies.load_once_paths = []
+    Object.send :remove_const, :A rescue nil
+  end
+  
+  def test_load_once_paths_should_behave_when_recursively_loading
+    with_loading 'dependencies', 'autoloading_fixtures' do
+      Dependencies.load_once_paths = [Dependencies.load_paths.last]
+      CrossSiteDepender.nil?
+      assert defined?(CrossSiteDependency)
+      assert ! Dependencies.autoloaded?(CrossSiteDependency),
+        "CrossSiteDependency shouldn't be marked as autoloaded!"
+      Dependencies.clear
+      assert defined?(CrossSiteDependency),
+        "CrossSiteDependency shouldn't have been unloaded!"
+    end
+  ensure
+    Dependencies.load_once_paths = []
+  end
+  
 end