card 1.91 → 1.92

data/db/seed/test/seed.rb

@@ -1,213 +1,281 @@
 # -*- encoding : utf-8 -*-
+
 require "timecop"
 
+# noinspection RubyResolve
 class SharedData
+  require_relative "../../../lib/card/model/save_helper"
+  extend Card::Model::SaveHelper
+
   USERS = [
     "Joe User", "Joe Admin", "Joe Camel", "Sample User", "No count",
     "u1", "u2", "u3",
     "Big Brother", "Optic fan", "Sunglasses fan", "Narcissist"
   ].freeze
 
-  def self.account_args hash
-    { "+*account" => { "+*password" => "joe_pass" }.merge(hash) }
-  end
+  CARDTYPE_COUNT = 32
+
+
+  class << self
 
-  def self.add_test_data
-    Card::Cache.reset_global
-    Card::Env.reset
-    Card::Auth.as_bot
-
-    Card::Auth.instant_account_activation do
-      Card.create! name: "Joe User",  type_code: "user",
-                   content: "I'm number two",
-                   subcards: account_args("+*email" => "joe@user.com")
-      Card.create! name: "Joe Admin", type_code: "user",
-                   content: "I'm number one",
-                   subcards: account_args("+*email" => "joe@admin.com")
-      Card.create! name: "Joe Camel", type_code: "user",
-                   content: "Mr. Buttz",
-                   subcards: account_args("+*email" => "joe@camel.com")
-
-      # data for testing users and account requests
-      Card.create! type_code: "user", name: "No Count",
-                   content: "I got no account"
-      Card.create! name: "Sample User", type_code: "user",
-                   subcards: account_args(
-                     "+*email" => "sample@user.com", "+*password" => "sample_pass"
-                   )
+    def create_user name, args
+      args[:subcards] = account_args args if args[:email]
+      super name, args
     end
 
-    Card["Joe Admin"].fetch(trait: :roles, new: { type_code: "pointer" })
-                     .items = [Card::AdministratorID]
-    Card.create! name: "signup alert email+*to", content: "signups@wagn.org"
+    def account_args hash
+      { "+*account" => { "+*email" => hash.delete(:email),
+                         "+*password" => hash.delete(:password) || "joe_pass" } }
+    end
 
-    # generic, shared attribute card
-    Card.create! name: "color"
-    Card.create! name: "Basic Card"
+    # noinspection RubyResolve
+    def add_test_data
+      Card::Cache.reset_global
+      Card::Env.reset
+      Card::Auth.as_bot
 
-    # CREATE A CARD OF EACH TYPE
-    Card.create! type_id: Card::SignupID, name: "Sample Signup" # , email: "invitation@request.com"
-    # above still necessary?  try commenting out above and 'Sign up' below
-    Card::Auth.current_id = Card::WagnBotID # need to reset after creating sign up, which changes current_id for extend phase
+      user_and_role_cards
 
-    no_samples = %( user sign_up set number list listed_by file image )
-    Card::Auth.createable_types.each do |type|
-      next if no_samples.include? type.to_name.key
-      Card.create! type: type, name: "Sample #{type}"
-    end
+      # generic, shared attribute card
+      create "color"
+
+      create "signup alert email+*to", "signups@wagn.org"
+      # CREATE A CARD OF EACH TYPE
+      create_signup "Sample Signup" # , email: "invitation@request.com"
+      # above still necessary?  try commenting out above and 'Sign up' below
+      Card::Auth.current_id = Card::WagnBotID # need to reset after creating sign up, which changes current_id for extend phase
+
+      no_samples = %( user sign_up set number list listed_by file image )
+      Card::Auth.createable_types.each do |type|
+        next if no_samples.include? type.to_name.key
+        create type: type, name: "Sample #{type}"
+      end
 
-    # data for role_test.rb
-
-    Card.create! name: "u1", type_code: "user", subcards: account_args("+*email" => "u1@user.com", "+*password" => "u1_pass")
-    Card.create! name: "u2", type_code: "user", subcards: account_args("+*email" => "u2@user.com", "+*password" => "u2_pass")
-    Card.create! name: "u3", type_code: "user", subcards: account_args("+*email" => "u3@user.com", "+*password" => "u3_pass")
-
-    r1 = Card.create!(type_code: "role", name: "r1")
-    r2 = Card.create!(type_code: "role", name: "r2")
-    r3 = Card.create!(type_code: "role", name: "r3")
-    r4 = Card.create!(type_code: "role", name: "r4")
-
-    Card["u1"].fetch(trait: :roles, new: {}).items = [r1, r2, r3]
-    Card["u2"].fetch(trait: :roles, new: {}).items = [r1, r2, r4]
-    Card["u3"].fetch(trait: :roles, new: {}).items = [r1, r4, Card::AdministratorID]
-
-    c1 = Card.create! name: "c1"
-    c2 = Card.create! name: "c2"
-    c3 = Card.create! name: "c3"
-
-    # cards for rename_test
-    # FIXME: could probably refactor these..
-    z = Card.create! name: "Z", content: "I'm here to be referenced to"
-    a = Card.create! name: "A", content: "Alpha [[Z]]"
-    b = Card.create! name: "B", content: "Beta {{Z}}"
-    t = Card.create! name: "T", content: "Theta"
-    x = Card.create! name: "X", content: "[[A]] [[A+B]] [[T]]"
-    y = Card.create! name: "Y", content: "{{B}} {{A+B}} {{A}} {{T}}"
-    ab = Card.create! name: "A+B", content: "AlphaBeta"
-
-    Card.create! name: "One+Two+Three"
-    Card.create! name: "Four+One+Five"
-
-    # for wql & permissions
-    %w(A+C A+D A+E C+A D+A F+A A+B+C).each { |name| Card.create!(name: name)  }
-    Card.create! type_code: "cardtype", name: "Cardtype A", codename: "cardtype_a"
-    Card.create! type_code: "cardtype", name: "Cardtype B", codename: "cardtype_b"
-    Card.create! type_code: "cardtype", name: "Cardtype C", codename: "cardtype_c"
-    Card.create! type_code: "cardtype", name: "Cardtype D", codename: "cardtype_d"
-    Card.create! type_code: "cardtype", name: "Cardtype E", codename: "cardtype_e"
-    Card.create! type_code: "cardtype", name: "Cardtype F", codename: "cardtype_f"
-
-    Card::Codename.reset_cache
-
-    Card.create! name: "basicname", content: "basiccontent"
-    Card.create! type_code: "cardtype_a", name: "type-a-card", content: "type_a_content"
-    Card.create! type_code: "cardtype_b", name: "type-b-card", content: "type_b_content"
-    Card.create! type_code: "cardtype_c", name: "type-c-card", content: "type_c_content"
-    Card.create! type_code: "cardtype_d", name: "type-d-card", content: "type_d_content"
-    Card.create! type_code: "cardtype_e", name: "type-e-card", content: "type_e_content"
-    Card.create! type_code: "cardtype_f", name: "type-f-card", content: "type_f_content"
-
-    # warn "current user #{User.session_user.inspect}.  always ok?  #{Card::Auth.always_ok?}"
-    c = Card.create! name: "revtest", content: "first"
-    c.update_attributes! content: "second"
-    c.update_attributes! content: "third"
-    # Card.create! type_code: 'cardtype', name: '*priority'
-
-    # for template stuff
-    Card.create! type_id: Card::CardtypeID, name: "UserForm"
-    Card.create! name: "UserForm+*type+*structure", content: "{{+name}} {{+age}} {{+description}}"
-
-    Card::Auth.current_id = Card["joe_user"].id
-    Card.create!(name: "JoeLater", content: "test")
-    Card.create!(name: "JoeNow", content: "test")
-
-    Card::Auth.current_id = Card::WagnBotID
-    Card.create!(name: "AdminNow", content: "test")
-
-    Card.create name: "Cardtype B+*type+*create", type: "Pointer", content: "[[r1]]"
-
-    Card.create! type: "Cardtype", name: "Book"
-    Card.create! name: "Book+*type+*structure", content: "by {{+author}}, design by {{+illustrator}}"
-    Card.create! name: "Iliad", type: "Book"
-
-    Card.create! type: "Cardtype", name: "Author"
-    Card.create! type: "Author", name: "Darles Chickens"
-    Card.create! type: "Author", name: "Stam Broker"
-    Card.create! name: "Parry Hotter", type: "Book"
-    Card.create! name: "50 grades of shy", type: "Book"
-
-    ### -------- Notification data ------------
-    Timecop.freeze(Cardio.future_stamp - 1.day) do
-      # fwiw Timecop is apparently limited by ruby Time object, which goes only to 2037 and back to 1900 or so.
-      #  whereas DateTime can represent all dates.
-
-      followers = {
-        "John"           => ["John Following", "All Eyes On Me"],
-        "Sara"           => ["Sara Following", "All Eyes On Me", "Optic+*type", "Google Glass"],
-        "Big Brother"    => ["All Eyes on Me", "Look at me+*self", "Optic+*type", "lens+*right", "Optic+tint+*type plus right", ["*all", "*created"], ["*all", "*edited"]],
-        "Optic fan"      => ["Optic+*type"],
-        "Sunglasses fan" => ["Sunglasses"],
-        "Narcissist"     => [["*all", "*created"], ["*all", "*edited"]]
-      }
-
-      followers.each do |name, _follow|
-        user = Card.create! name: name, type_code: "user", subcards: account_args("+*email" => "#{name.parameterize}@user.com", "+*password" => "#{name.parameterize}_pass")
+      %w[c1 c2 c3].each do |name|
+        create name
       end
 
-      Card.create! name: "All Eyes On Me"
-      Card.create! name: "No One Sees Me"
-      Card.create! name: "Look At Me"
-      Card.create! name: "Optic", type: "Cardtype"
-      Card.create! name: "Sara Following"
-      Card.create! name: "John Following", content: "{{+her}}"
-      Card.create! name: "John Following+her"
-      magnifier = Card.create! name: "Magnifier+lens"
+      # cards for rename_test
+      # FIXME: could probably refactor these..
+      [
+        ["Z", "I'm here to be referenced to"],
+        ["A", "Alpha [[Z]]"],
+        ["B", "Beta {{Z}}"],
+        ["T", "Theta"],
+        ["X", "[[A]] [[A+B]] [[T]]"],
+        ["Y", "{{B}} {{A+B}} {{A}} {{T}}"],
+        ["A+B", "AlphaBeta"],
+        ["A+B+Y+Z", "more letters"],
+        ["Link to unknown", "[[Mister X]]"]
+      ].each do |name, content|
+        create name, content
+      end
+
+      create "One+Two+Three"
+      create "Four+One+Five"
+      create "basicname", "basiccontent"
+
+      cardtype_cards
 
-      Card::Auth.current_id = Card["Narcissist"].id
-      magnifier.update_attributes! content: "zoom in"
-      Card.create! name: "Sunglasses", type: "Optic", content: "{{+tint}}{{+lens}}"
+      # for template stuff
+      Card.create! type_id: Card::CardtypeID, name: "UserForm"
+      create "UserForm+*type+*structure", "{{+name}} {{+age}} {{+description}}"
 
-      Card::Auth.current_id = Card["Optic fan"].id
-      Card.create! name: "Google glass", type: "Optic", content: "{{+price}}"
+      Card::Auth.current_id = Card["joe_user"].id
+      create "JoeLater", "test"
+      create "JoeNow", "test"
 
       Card::Auth.current_id = Card::WagnBotID
-      Card.create! name: "Google glass+*self+*follow_fields", content: ""
-      Card.create! name: "Sunglasses+*self+*follow_fields", content: "[[#{Card[:includes].name}]]\n[[_self+price]]\n[[_self+producer]]"
-      Card.create! name: "Sunglasses+tint"
-      Card.create! name: "Sunglasses+price"
-
-      followers.each do |name, follow|
-        user = Card[name]
-        follow.each do |f|
-          user.follow *f
-        end
+
+      create_cardtype "Book"
+      create "Book+*type+*structure", "by {{+author}}, design by {{+illustrator}}"
+      create_book "Iliad"
+
+      create_cardtype "Author"
+      create_author "Darles Chickens"
+      create_author "Stam Broker"
+      create_book "Parry Hotter"
+      create_book "50 grades of shy"
+
+      ## --------- Fruit: creatable by anyone but not readable ---
+      Card.create! type: "Cardtype", name: "Fruit"
+      Card.create! name: "Fruit+*type+*create", type: "Pointer", content: "[[Anyone]]"
+      Card.create! name: "Fruit+*type+*read", type: "Pointer", content: "[[Administrator]]"
+
+      # codenames for card_accessor tests
+      Card.create! name: "*write", codename: :write
+
+      # -------- For toc testing: ------------
+
+      create "OnneHeading", "<h1>This is one heading</h1>\r\n<p>and some text</p>"
+      create "TwwoHeading", "<h1>One Heading</h1>\r\n<p>and some text</p>\r\n"\
+                            "<h2>And a Subheading</h2>\r\n<p>and more text</p>"
+      create "ThreeHeading", "<h1>A Heading</h1>\r\n<p>and text</p>\r\n"\
+                             "<h2>And Subhead</h2>\r\n<p>text</p>\r\n"\
+                             "<h1>And another top Heading</h1>"
+
+      # -------- For history testing: -----------
+      first = create "First", "egg"
+      first.update_attributes! content: "chicken"
+      first.update_attributes! content: "chick"
+
+      # -------- For rename testing: -----------
+      [
+        ["Blue", ""],
+        ["blue includer 1", "{{Blue}}"],
+        ["blue includer 2", "{{blue|closed;other:stuff}}"],
+        ["blue linker 1", "[[Blue]]"],
+        ["blue linker 2", "[[blue]]"]
+      ].each do |name, content|
+        create name, content
+      end
+      create_cardtype "self aware", "[[/new/{{_self|name}}|new]]"
+
+      notification_cards
+
+      # Card['*all+*style' ].ensure_machine_output
+      # Card['*all+*script'].ensure_machine_output
+      # (ie9 = Card[:script_html5shiv_printshiv]) && ie9.ensure_machine_output
+    end
+
+    def user_and_role_cards
+      Card::Auth.instant_account_activation do
+        create_user "Joe User", content: "I'm number two", email: "joe@user.com"
+        create_user "Joe Admin", content: "I'm number one", email: "joe@admin.com"
+        create_user "Joe Camel", content: "Mr. Buttz", email: "joe@camel.com"
+
+        # data for testing users and account requests
+        create_user "No Count", content: "I got no account"
+        create_user "Sample User", email: "sample@user.com", password: "sample_pass"
       end
+
+      # noinspection RubyResolve
+      Card["Joe Admin"].fetch(trait: :roles, new: { type_code: "pointer" })
+        .items = [Card::AdministratorID]
+
+      create_user "u1", email: "u1@user.com", password: "u1_pass"
+      create_user "u2", email: "u2@user.com", password: "u2_pass"
+      create_user "u3", email: "u3@user.com", password: "u3_pass"
+
+      r1 = create_role "r1"
+      r2 = create_role "r2"
+      r3 = create_role "r3"
+      r4 = create_role "r4"
+
+      Card["u1"].fetch(trait: :roles, new: {}).items = [r1, r2, r3]
+      Card["u2"].fetch(trait: :roles, new: {}).items = [r1, r2, r4]
+      Card["u3"].fetch(trait: :roles, new: {}).items = [r1, r4, Card::AdministratorID]
     end
 
-    ## --------- create templated permissions -------------
-    ctt = Card.create! name: "Cardtype E+*type+*default"
 
-    ## --------- Fruit: creatable by anon but not readable ---
-    f = Card.create! type: "Cardtype", name: "Fruit"
-    Card.create! name: "Fruit+*type+*create", type: "Pointer", content: "[[Anyone]]"
-    Card.create! name: "Fruit+*type+*read", type: "Pointer", content: "[[Administrator]]"
+    def cardtype_cards
+      # for wql & permissions
+      %w[A+C A+D A+E C+A D+A F+A A+B+C].each {|name| create name}
+      ("A".."F").each do |ch|
+        create "Cardtype #{ch}", type_code: "cardtype",
+               codename: "cardtype_#{ch.downcase}"
+      end
+      Card::Codename.reset_cache
+
+      ("a".."f").each do |ch|
+        create "type-#{ch}-card", type_code: "cardtype_#{ch}",
+               content: "type_#{ch}_content"
+      end
+
+      create_pointer "Cardtype B+*type+*create", "[[r3]]"
+      create_pointer "Cardtype B+*type+*update", "[[r1]]"
+
+      ## --------- create templated permissions -------------
+      create "Cardtype E+*type+*default"
+    end
+
 
-    # codenames for card_accessor tests
-    Card.create! name: "*write", codename: :write
+    def notification_cards
+      Timecop.freeze(Cardio.future_stamp - 1.day) do
+        # fwiw Timecop is apparently limited by ruby Time object,
+        # which goes only to 2037 and back to 1900 or so.
+        #  whereas DateTime can represent all dates.
+
+        followers = {
+          "John" => ["John Following", "All Eyes On Me"],
+          "Sara" => ["Sara Following", "All Eyes On Me", "Optic+*type",
+                     "Google Glass"],
+          "Big Brother" => ["All Eyes on Me", "Look at me+*self", "Optic+*type",
+                            "lens+*right", "Optic+tint+*type plus right",
+                            ["*all", "*created"], ["*all", "*edited"]],
+          "Optic fan" => ["Optic+*type"],
+          "Sunglasses fan" => ["Sunglasses"],
+          "Narcissist" => [["*all", "*created"], ["*all", "*edited"]]
+        }
+
+        followers.each do |name, _follow|
+          create_user name, email: "#{name.parameterize}@user.com",
+                      password: "#{name.parameterize}_pass"
+        end
 
-    # -------- For toc testing: ------------
+        create "All Eyes On Me"
+        create "No One Sees Me"
+        create "Look At Me"
+        create_cardtype "Optic"
+        create "Sara Following"
+        create "John Following", "{{+her}}"
+        create "John Following+her"
+        magnifier = create "Magnifier+lens"
+
+        Card::Auth.current_id = Card["Narcissist"].id
+        magnifier.update_attributes! content: "zoom in"
+        create_optic "Sunglasses", "{{+tint}}{{+lens}}"
+
+        Card::Auth.current_id = Card["Optic fan"].id
+        create_optic "Google glass", "{{+price}}"
+
+        Card::Auth.current_id = Card::WagnBotID
+        create "Google glass+*self+*follow_fields", ""
+        create "Sunglasses+*self+*follow_fields", "[[#{Card[:includes].name}]]\n[[_self+price]]\n[[_self+producer]]"
+        create "Sunglasses+tint"
+        create "Sunglasses+price"
+
+        followers.each do |name, follow|
+          user = Card[name]
+          follow.each do |f|
+            user.follow(*f)
+          end
+        end
+      end
 
-    Card.create! name: "OnneHeading", content: "<h1>This is one heading</h1>\r\n<p>and some text</p>"
-    Card.create! name: "TwwoHeading", content: "<h1>One Heading</h1>\r\n<p>and some text</p>\r\n<h2>And a Subheading</h2>\r\n<p>and more text</p>"
-    Card.create! name: "ThreeHeading", content: "<h1>A Heading</h1>\r\n<p>and text</p>\r\n<h2>And Subhead</h2>\r\n<p>text</p>\r\n<h1>And another top Heading</h1>"
+      # capitalized names so that they don't interfere with checks for the verbs
+      create "Created card", content: "new content"
+      update "Created card", name: "Updated card", content: "changed content", type: :pointer
+      create "Created card", content: "new content"
+      card = create "Deleted card", content: "old content"
+      card.delete
+
+      Card::Auth.with "Joe User" do
+        [
+          ["card with fields", "field 1", "field 2"],
+          ["card with fields and admin fields", "field 1", "admin field 1"],
+          ["admin card with fields and admin fields", "field 1", "admin field 1"],
+          ["admin card with admin fields", "admin field 1", "admin field 2"],
+        ].each do |name, f1, f2|
+          create name,
+                 content: "main content {{+#{f1}}}  {{+#{f2}}}",
+                 subcards: { "+#{f1}" => "content of #{f1}",
+                             "+#{f2}" => "content of #{f2}" }
+        end
+      end
 
-    # -------- For history testing: -----------
-    first = Card.create! name: "First", content: "egg"
-    first.update_attributes! content: "chicken"
-    first.update_attributes! content: "chick"
+      Card::Auth.as_bot do
+        [
+          ["admin card with fields and admin fields", :self],
+          ["admin card with admin fields", :self],
+          ["admin field 1", :right],
+          ["admin field 2", :right]
+        ].each do |name, rule_set|
+          create [name, rule_set, :read], type: "Pointer", content: "[[Administrator]]"
+        end
+        create ["field 1", :right, :read], type: "Pointer", content: "[[Anyone]]"
+      end
 
-    # Card['*all+*style' ].ensure_machine_output
-    # Card['*all+*script'].ensure_machine_output
-    # (ie9 = Card[:script_html5shiv_printshiv]) && ie9.ensure_machine_output
+    end
   end
 end