gfdnavi 1.3.0.0

data/test/functional/user_controller_test.rb

@@ -0,0 +1,77 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'user_controller'
+
+# Raise errors beyond the default web-based presentation
+class UserController; def rescue_action(e) raise e end; end
+
+class UserControllerTest < Test::Unit::TestCase
+  self.use_instantiated_fixtures  = true
+
+  fixtures :users
+
+  def setup
+
+    @controller = UserController.new
+    @request, @response = ActionController::TestRequest.new, ActionController::TestResponse.new
+    @request.host = "localhost"
+  end
+
+  def test_auth_bob
+    @request.session['return-to'] = "/bogus/location"
+
+    post :login, "user_login" => "bob", "user_password" => "test"
+    assert_session_has "user"
+
+    assert_equal @bob, @response.session["user"]
+
+    assert_redirected_to "/bogus/location"
+  end
+
+  def test_signup
+
+    post :login, "user_login" => "root", "user_password" => "rootroot"
+
+    @request.session['return-to'] = "/bogus/location"
+
+    post :signup, "user" => { "login" => "newbob", "password" => "newpassword", "password_confirmation" => "newpassword" }
+    assert_session_has "user"
+
+    assert_redirected_to "/bogus/location"
+  end
+
+  def test_bad_signup
+    @request.session['return-to'] = "/bogus/location"
+
+    post :signup, "user" => { "login" => "newbob", "password" => "newpassword", "password_confirmation" => "wrong" }
+#    assert_invalid_column_on_record "user", "password"
+    assert_response 302
+
+    post :signup, "user" => { "login" => "yo", "password" => "newpassword", "password_confirmation" => "newpassword" }
+#    assert_invalid_column_on_record "user", "login"
+    assert_response 302
+
+    post :signup, "user" => { "login" => "yo", "password" => "newpassword", "password_confirmation" => "wrong" }
+#    assert_invalid_column_on_record "user", ["login", "password"]
+    assert_response 302
+  end
+
+  def test_invalid_login
+    post :login, "user_login" => "bob", "user_password" => "not_correct"
+
+    assert_session_has_no "user"
+
+#    assert_template_has "message"
+    assert_template_has "login"
+  end
+
+  def test_login_logoff
+
+    post :login, "user_login" => "bob", "user_password" => "test"
+    assert_session_has "user"
+
+    get :logout
+    assert_session_has_no "user"
+
+  end
+
+end

data/test/functional/webservice_analysis_api_test.rb

@@ -0,0 +1,12 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'webservice_analysis_controller'
+
+class WebserviceAnalysisController; def rescue_action(e) raise e end; end
+
+class WebserviceAnalysisControllerApiTest < Test::Unit::TestCase
+  def setup
+    @controller = WebserviceAnalysisController.new
+    @request    = ActionController::TestRequest.new
+    @response   = ActionController::TestResponse.new
+  end
+end

data/test/functional/work_flow_controller_test.rb

@@ -0,0 +1,18 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require 'work_flow_controller'
+
+# Re-raise errors caught by the controller.
+class WorkFlowController; def rescue_action(e) raise e end; end
+
+class WorkFlowControllerTest < Test::Unit::TestCase
+  def setup
+    @controller = WorkFlowController.new
+    @request    = ActionController::TestRequest.new
+    @response   = ActionController::TestResponse.new
+  end
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,28 @@
+ENV["RAILS_ENV"] = "test"
+require File.expand_path(File.dirname(__FILE__) + "/../config/environment")
+require 'test_help'
+
+class Test::Unit::TestCase
+  # Transactional fixtures accelerate your tests by wrapping each test method
+  # in a transaction that's rolled back on completion.  This ensures that the
+  # test database remains unchanged so your fixtures don't have to be reloaded
+  # between every test method.  Fewer database queries means faster tests.
+  #
+  # Read Mike Clark's excellent walkthrough at
+  #   http://clarkware.com/cgi/blosxom/2005/10/24#Rails10FastTesting
+  #
+  # Every Active Record database supports transactions except MyISAM tables
+  # in MySQL.  Turn off transactional fixtures in this case; however, if you
+  # don't care one way or the other, switching from MyISAM to InnoDB tables
+  # is recommended.
+  self.use_transactional_fixtures = true
+
+  # Instantiated fixtures are slow, but give you @david where otherwise you
+  # would need people(:david).  If you don't want to migrate your existing
+  # test cases which use the @david style and don't mind the speed hit (each
+  # instantiated fixtures translates to a database query per test method),
+  # then set this back to true.
+  self.use_instantiated_fixtures  = false
+
+  # Add more helper methods to be used by all tests here...
+end

data/test/unit/diagram_cache_datum_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class DiagramCacheDatumTest < Test::Unit::TestCase
+  fixtures :diagram_cache_data
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/diagram_cache_session_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class DiagramCacheSessionTest < Test::Unit::TestCase
+  fixtures :diagram_cache_sessions
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/diagram_cache_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class FigureCacheTest < Test::Unit::TestCase
+  fixtures :diagram_caches
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/directory_test.rb

@@ -0,0 +1,49 @@
+require File.dirname(__FILE__) + '/../test_helper'
+require File.expand_path(File.dirname(__FILE__) + "/../../lib/narray_yaml")
+
+class DirectoryTest < Test::Unit::TestCase
+  fixtures  :directories, :nodes, :users, :groups
+
+  def setup
+    @dir_reanalysis = Directory.find(3) # reanalysis
+    @root = User.find_by_login("root")
+  end
+
+  def test_db
+    reanalysis = directories(:reanalysis)
+    assert_kind_of Directory, @dir_reanalysis
+    assert_equal reanalysis.id, @dir_reanalysis.id
+    assert_equal reanalysis.plain_file, @dir_reanalysis.plain_file
+    assert_equal reanalysis.node, @dir_reanalysis.node
+    assert_equal reanalysis.name, @dir_reanalysis.name
+    assert_equal Node.find_by_path("/samples"), @dir_reanalysis.parent
+  end
+
+  def test_create
+    dir = Directory.new
+    assert_equal Node::DIRECTORY, dir.node.node_type
+  end
+
+  def test_update
+  end
+
+  def test_children
+    ncep_jan = directories(:ncep_t_jan)
+    children = @dir_reanalysis.children(false,:user=>@root)
+    assert_equal 2, children.length
+    assert_kind_of Node, children[1]
+    assert_kind_of Directory, children[1].entity
+    assert children[1].children.include?( ncep_jan.node )
+    ncep = @dir_reanalysis.children.find(:first, :conditions => 'name = "ncep"')
+    assert_kind_of Directory, ncep.entity
+    assert_equal %w(T.jan.100hPa.png T.jan.nc T.jan.zonal_mean.nc UV.jan.nc).sort, ncep.children.collect{|n| n.name}.sort
+  end
+
+  def test_variables
+    ncep = @dir_reanalysis.node.children.find(:first, :conditions => 'name = "ncep"')
+    ncep_jan = ncep.children.find(:first, :conditions => 'name = "T.jan.nc"')
+    assert_kind_of Directory, ncep_jan.entity
+  end
+
+
+end

data/test/unit/draw_parameter_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class DrawParameterTest < Test::Unit::TestCase
+  fixtures :draw_parameters
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/function_argument_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class FunctionArgumentTest < Test::Unit::TestCase
+  fixtures :function_arguments
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/function_output_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class FunctionOutputTest < Test::Unit::TestCase
+  fixtures :function_outputs
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/function_test.rb

@@ -0,0 +1,10 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class FunctionTest < Test::Unit::TestCase
+  fixtures :functions, :function_arguments, :function_outputs, :nodes, :value_types
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/test/unit/group_test.rb

@@ -0,0 +1,48 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class GroupTest < Test::Unit::TestCase
+  fixtures :users, :groups
+
+  def setup
+    @user_root = User.find_by_login("root")
+  end
+
+  def test_create_groups
+    maxgid = Group.find_by_sql('select max(id) as id from groups').first.id
+    tg = Group.new(:name => 'test')
+    tg.owner = @user_root
+    assert tg.save
+    assert_equal @user_root.id, tg.owner_id
+    tg2 = Group.new(:name => 'test2')
+    tg2.owner = @user_root
+    assert tg2.save
+    assert_equal Group.find_by_name('test').id, maxgid+1
+  end
+
+  def test_members
+    assert_equal ["root"], Group.find_by_name("root").members.collect{|gm| gm.login}
+    assert_equal ["bob","longbob","root"], Group.find_by_name("all").members.collect{|gm| gm.login}.sort
+    assert_equal ["bob"], Group.find_by_name("era").members.collect{|gm| gm.login}
+    bobsgroup = Group.find_by_bit_flag(User.find_by_login("bob").groups).collect{|g| g.name}.sort
+    assert_equal bobsgroup, ["all", "bob", "bobs", "era"] 
+  end
+
+  def test_add_del_members
+    bobs = Group.find_by_name("bobs")
+    mbs = ["bob","longbob"]
+    bobs.add_members( mbs )
+    assert_equal mbs, bobs.members.collect{|u| u.login}.sort
+    bobs.del_members(["longbob"])
+    assert_equal bobs.members.collect{|u| u.login}, ["bob"]
+  end
+
+  def test_destroy
+    longbob = Group.find_by_name("longbob")
+    longbob.add_members( ["longbob"] )
+    lg1 = User.find_by_login("longbob").groups
+    longbob.destroy
+    lg2 = User.find_by_login("longbob").groups
+    assert_equal  lg1 ^ lg2, longbob.bit_mask
+  end
+
+end

data/test/unit/image_test.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class ImageTest < Test::Unit::TestCase
+  fixtures :nodes, :images
+
+  def setup
+  end
+
+  def test_assert
+    assert true
+  end
+
+end

data/test/unit/keyword_attribute_test.rb

@@ -0,0 +1,33 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class KeywordAttributeTest < Test::Unit::TestCase
+  fixtures :keyword_attributes, :nodes, :directories, :variables
+
+  def setup
+    @ka = KeywordAttribute.find(1)
+  end
+
+  def test_db
+    rd = keyword_attributes(:reanalysis_description)
+    assert_kind_of KeywordAttribute, @ka
+    assert_equal rd.node_id, @ka.node_id
+    assert_equal rd.name, @ka.name
+    assert_equal rd.value, @ka.value
+    assert_equal rd.num_value, @ka.num_value
+    assert_kind_of Node, rd.node
+  end
+
+  def test_stdname
+    ka = KeywordAttribute.find_by_stdname('title')
+    assert_equal 'long_name', ka.name
+  end
+
+  def test_node
+    node = Node.find_by_path("/samples/reanalysis")
+    ka = node.keyword_attributes
+    assert_equal 1, ka.length
+    assert_kind_of KeywordAttribute, ka[0]
+    assert_kind_of KeywordAttribute, node.entity.keyword_attributes[0]
+  end
+
+end

data/test/unit/knowledge_test.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class KnowledgeTest < Test::Unit::TestCase
+  fixtures :nodes, :knowledges
+
+  def setup
+  end
+
+  def test_assert
+    assert true
+  end
+
+end

data/test/unit/node_relation_test.rb

@@ -0,0 +1,20 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class NodeRelationTest < Test::Unit::TestCase
+  fixtures :nodes, :variables, :images, :node_relations
+
+  # Replace this with your real tests.
+
+  def setup
+    @t = Node.find_by_path("/samples/reanalysis/ncep/T.jan.nc/T")
+    @t_mean = Node.find_by_path("/samples/reanalysis/ncep/T.jan.zonal_mean.nc/T_mean")
+    @t_image = Node.find_by_path("/samples/reanalysis/ncep/T.jan.100hPa.png")
+  end
+
+  def test_relation
+    assert_equal [@t], @t_mean.references
+    assert_equal [@t], @t_image.references
+    assert_equal [@t_mean, @t_image].sort{|a,b| a.path<=>b.path}, @t.referenced_by.sort{|a,b| a.path<=>b.path}
+  end
+
+end

data/test/unit/node_test.rb

@@ -0,0 +1,85 @@
+require File.dirname(__FILE__) + '/../test_helper'
+
+class NodeTest < Test::Unit::TestCase
+  fixtures :nodes, :users, :groups
+           #, :variables, :keyword_attributes,
+
+  def setup
+    @node_reanalysis = Node.find_by_path('/samples/reanalysis')
+    @root = User.find_by_login("root")
+  end
+
+  def test_permission
+    topnode = Node.find_by_path('/')
+    topnode.update
+    topnode.save!
+    #Node.find(:all, :user=>:all).each do |node| 
+    #  printf("%016x %s\n",node.groups_readable,node.path)
+    #end
+    n1 = Node.find_by_path('/samples/reanalysis/era40')
+    assert_equal n1.groups_readable, 32
+    n2 = Node.find_by_path('/samples/reanalysis/era40/t.nc')
+    assert_equal n2.groups_readable, 32
+  end
+
+  def test_db
+    reanalysis = nodes(:reanalysis)
+    assert_kind_of Node, @node_reanalysis
+    assert_equal reanalysis.id, @node_reanalysis.id
+    assert_equal reanalysis.name, @node_reanalysis.name
+    assert_equal reanalysis.parent_id, @node_reanalysis.parent_id
+    assert_equal reanalysis.node_type, @node_reanalysis.node_type
+  end
+
+  def test_tree
+    assert_equal '/samples', @node_reanalysis.parent.path
+    assert_equal ["ncep"], @node_reanalysis.children.collect{|node| node.name}
+    assert_equal ["era40","ncep"], @node_reanalysis.children(false,:user=>@root).collect{|node| node.name}
+  end
+
+  def test_lineage
+    # this is rather to test the consistency of the fixture
+    upath = '/samples/reanalysis/ncep/UV.jan.nc/U'
+    assert_kind_of Node, ( u = Node.find_by_path(upath) )
+    path = u.file
+    assert_equal( (pr=u.parent).path, path )
+    while (path.sub!(/\/[^\/]*$/,'') !=  '')
+      assert_equal( (pr=pr.parent).path, path )
+    end
+  end
+
+  def test_group
+    assert_equal Node.count, Node.find(:all, :user=>@root).length
+
+    bob = User.find_by_login("bob") # belongs to "era"
+    path = "/samples/reanalysis/era40"
+    assert_equal path, Node.find(:first, :conditions=>"path='#{path}'", :user=>bob).path
+    path = "/samples/reanalysis/era40/t.nc"
+    assert_equal path, Node.find(:first, :conditions=>"path='#{path}'", :user=>bob).path
+    path = "/samples/reanalysis/era40/t.nc/t"
+    assert_equal path, Node.find(:first, :conditions=>"path='#{path}'", :user=>bob).path
+    assert_equal 3, Node.find(:all, :conditions=>"path like '%era%'", :user=>bob).length
+
+    longbob = User.find_by_login("longbob") # "belongs to "bobs"
+    path = "/usr/bob/hidden_image.png"
+    assert_equal path, Node.find(:first, :conditions=>"path='#{path}'", :user=>@root).path
+    assert_equal path, Node.find(:first, :conditions=>"path='#{path}'", :user=>longbob).path
+    assert_equal 0, Node.find(:all, :conditions=>"path like '%era%'", :user=>longbob).length
+
+    path = "/samples/reanalysis/ncep/T.jan.nc/T"
+    assert_equal path, Node.find(:first, :conditions=>["path=?",path]).path
+    assert_equal @node_reanalysis, Node.find(@node_reanalysis.id)
+    assert_equal 0, Node.find(:all, :conditions=>"path like '%era%'").length
+    path = "/usr/bob/hidden_image.png"
+    assert_nil Node.find(:first, :conditions=>["path=?",path])
+  end
+
+  def test_update
+    name = "changed_name"
+    @node_reanalysis.name = name
+    assert @node_reanalysis.save, @node_reanalysis.errors.full_messages.join("; ")
+    @node_reanalysis.reload
+    assert_equal name, @node_reanalysis.name
+  end
+
+end