sohm 0.0.1 → 0.9.0

data/lib/sohm/lua/delete.lua

@@ -1,72 +0,0 @@
--- This script receives three parameters, all encoded with
--- MessagePack. The decoded values are used for deleting a model
--- instance in Redis and removing any reference to it in sets
--- (indices) and hashes (unique indices).
---
--- # model
---
--- Table with three attributes:
---    id (model instance id)
---    key (hash where the attributes will be saved)
---    name (model name)
---
--- # uniques
---
--- Fields and values to be removed from the unique indices.
---
--- # tracked
---
--- Keys that share the lifecycle of this model instance, that
--- should be removed as this object is deleted.
---
-local model   = cmsgpack.unpack(ARGV[1])
-local uniques = cmsgpack.unpack(ARGV[2])
-local tracked = cmsgpack.unpack(ARGV[3])
-
-local function remove_indices(model)
-	local memo = model.key .. ":_indices"
-	local existing = redis.call("SMEMBERS", memo)
-
-	for _, key in ipairs(existing) do
-		redis.call("SREM", key, model.id)
-		redis.call("SREM", memo, key)
-	end
-end
-
-local function remove_uniques(model, uniques)
-	local memo = model.key .. ":_uniques"
-
-	for field, _ in pairs(uniques) do
-		local key = model.name .. ":uniques:" .. field
-
-		redis.call("HDEL", key, redis.call("HGET", memo, key))
-		redis.call("HDEL", memo, key)
-	end
-end
-
-local function remove_tracked(model, tracked)
-	for _, tracked_key in ipairs(tracked) do
-		local key = model.key .. ":" .. tracked_key
-
-		redis.call("DEL", key)
-	end
-end
-
-local function delete(model)
-	local keys = {
-		model.key .. ":counters",
-		model.key .. ":_indices",
-		model.key .. ":_uniques",
-		model.key
-	}
-
-	redis.call("SREM", model.name .. ":all", model.id)
-	redis.call("DEL", unpack(keys))
-end
-
-remove_indices(model)
-remove_uniques(model, uniques)
-remove_tracked(model, tracked)
-delete(model)
-
-return model.id

data/test/thread_safety.rb

@@ -1,67 +0,0 @@
-require_relative "helper"
-
-class Post < Ohm::Model; end
-class Role < Ohm::Model; end
-
-class User < Ohm::Model
-  list :posts, :Post
-  set  :roles, :Role
-end
-
-setup do
-  User.create
-end
-
-test "list#replace" do |user|
-  Post.mutex.lock
-
-  thread = Thread.new { user.posts.replace([Post.create]) }
-
-  sleep 0.1
-
-  assert_equal true, thread.alive?
-
-  Post.mutex.unlock
-
-  sleep 0.1
-
-  assert_equal false, thread.alive?
-
-  thread.join
-end
-
-test "set#replace" do |user|
-  Role.mutex.lock
-
-  thread = Thread.new { user.roles.replace([Role.create]) }
-
-  sleep 0.1
-
-  assert_equal true, thread.alive?
-
-  Role.mutex.unlock
-
-  sleep 0.1
-
-  assert_equal false, thread.alive?
-
-  thread.join
-end
-
-test "collection#fetch" do
-  User.mutex.lock
-
-  thread = Thread.new { User.all.to_a }
-
-  sleep 0.1
-
-  assert_equal true, thread.alive?
-
-  User.mutex.unlock
-
-  sleep 0.1
-
-  assert_equal false, thread.alive?
-
-  thread.join
-end

data/test/uniques.rb

@@ -1,98 +0,0 @@
-require_relative "helper"
-
-class User < Ohm::Model
-  attribute :email
-  unique :email
-  unique :provider
-
-  def self.[](id)
-    super(id.to_i)
-  end
-
-  def provider
-    email.to_s[/@(.*?).com/, 1]
-  end
-end
-
-setup do
-  User.create(:email => "a@a.com")
-end
-
-test "findability" do |u|
-  assert_equal u, User.with(:email, "a@a.com")
-end
-
-test "raises when it already exists during create" do
-  assert_raise Ohm::UniqueIndexViolation do
-    User.create(:email => "a@a.com")
-  end
-end
-
-test "raises when it already exists during save" do
-  u = User.create(:email => "b@b.com")
-  u.email = "a@a.com"
-
-  assert_raise Ohm::UniqueIndexViolation do
-    u.save
-  end
-end
-
-test "raises if the index doesn't exist" do
-  User.create(:email => "b@b.com")
-
-  assert_raise Ohm::IndexNotFound do
-    User.with(:address, "b@b.com")
-  end
-end
-
-test "doesn't raise when saving again and again" do |u|
-  ex = nil
-
-  begin
-    User[u.id].save
-  rescue Exception => e
-    ex = e
-  end
-
-  assert_equal nil, ex
-end
-
-test "removes the previous index when changing" do
-  u = User.create(:email => "c@c.com")
-  u.update(:email => "d@d.com")
-
-  assert_equal nil, User.with(:email, "c@c.com")
-  assert_equal nil, User.redis.call("HGET", User.key[:uniques][:email], "c@c.com")
-  assert_equal u, User.with(:email, "d@d.com")
-
-  u.update(:email => nil)
-
-  assert_equal nil, User.with(:email, "d@d.com")
-  assert_equal nil, User.redis.call("HGET", User.key[:uniques][:email], "d@d.com")
-end
-
-test "removes the previous index when deleting" do |u|
-  u.delete
-
-  assert_equal nil, User.with(:email, "a@a.com")
-  assert_equal nil, User.redis.call("HGET", User.key[:uniques][:email], "a@a.com")
-end
-
-test "unique virtual attribute" do
-  u = User.create(:email => "foo@yahoo.com")
-
-  assert_equal u, User.with(:provider, "yahoo")
-
-  # Yahoo should be allowed because this user is the one reserved for it.
-  u.update(:email => "bar@yahoo.com")
-
-  # `a` is not allowed though.
-  assert_raise Ohm::UniqueIndexViolation do
-    u.update(:email => "bar@a.com")
-  end
-
-  # And so is yahoo if we try creating a different user.
-  assert_raise Ohm::UniqueIndexViolation do
-    User.create(:email => "baz@yahoo.com")
-  end
-end