require "spec" require "file_utils" require "json" require "uuid" require "../src/*" # FIXME: Split the test data in separate files. We don’t care about those here. class Ship include JSON::Serializable def_clone property id : String property klass : String property name : String property tags : Array(String) def initialize(@name, @klass = "", @id = UUID.random.to_s, @tags = [] of String) end # Makes testing arrays of this class easier. def <=>(other) @name <=> other.name end # Common, reusable test data. # Those data can be indexed, partitioned or tagged on different parameters, # and can easily be extended. class_getter kisaragi = Ship.new("Kisaragi", "Mutsuki") class_getter destroyers = [ @@kisaragi, Ship.new("Mutsuki", "Mutsuki", tags: ["name ship"]), Ship.new("Yayoi", "Mutsuki"), Ship.new("Uzuki", "Mutsuki"), Ship.new("Satsuki", "Mutsuki"), Ship.new("Shiratsuyu", "Shiratsuyu", tags: ["name ship"]), Ship.new("Murasame", "Shiratsuyu"), Ship.new("Yuudachi", "Shiratsuyu") ] class_getter yamato = Ship.new("Yamato", "Yamato", tags: ["name ship", "flagship"]) class_getter flagship : Ship = yamato class_getter battleships = [ @@yamato, Ship.new("Kongou", "Kongou", tags: ["name ship"]), Ship.new("Haruna", "Kongou"), Ship.new("Kirishima", "Kongou"), Ship.new("Hiei" , "Kongou"), Ship.new("Musashi", "Yamato"), Ship.new("Shinano", "Yamato") ] class_getter all_ships : Array(Ship) = @@destroyers + @@battleships # Equality is true if every property is identical. def ==(other) @id == other.id && @klass == other.klass && @name == other.name && @tags == other.tags end end # This will be used for migration testing, but basically it’s a variant of # the class above, a few extra fields, a few missing ones. class PrimitiveShip include JSON::Serializable property id : String property name : String property wooden : Bool = false # Will be removed. property class_name : String # Will be renamed property flagship : Bool = false # Will be moved to tags. def initialize(@name, @class_name = "", @id = UUID.random.to_s, @flagship = false) end class_getter kamikaze = PrimitiveShip.new("Kamikaze", "Kamikaze") class_getter asakaze = PrimitiveShip.new("Asakaze", "Kamikaze") class_getter all_ships : Array(PrimitiveShip) = [ @@kamikaze, @@asakaze ] end class DODB::SpecDataBase < DODB::DataBase(Ship) def initialize(storage_ext = "") storage_dir = "test-storage#{storage_ext}" ::FileUtils.rm_rf storage_dir super storage_dir end end describe "DODB::DataBase" do describe "basics" do it "store and get data" do db = DODB::SpecDataBase.new Ship.all_ships.each do |ship| db << ship end db.to_a.sort.should eq(Ship.all_ships.sort) end it "rewrite already stored data" do db = DODB::SpecDataBase.new ship = Ship.all_ships[0] key = db << ship db[key] = Ship.new "broken" db[key] = ship db[key].should eq(ship) end it "properly remove data" do db = DODB::SpecDataBase.new Ship.all_ships.each do |ship| db << ship end Ship.all_ships.each do |ship| db.pop end Ship.all_ships.each_with_index do |ship, i| # FIXME: Should it raise a particular exception? expect_raises DODB::MissingEntry do db[i] end db[i]?.should be_nil end end end describe "indices" do it "do basic indexing" do db = DODB::SpecDataBase.new db_ships_by_name = db.new_index "name", &.name Ship.all_ships.each do |ship| db << ship end Ship.all_ships.each_with_index do |ship| db_ships_by_name.get?(ship.name).should eq(ship) end end it "raise on index overload" do db = DODB::SpecDataBase.new db_ships_by_name = db.new_index "name", &.name db << Ship.kisaragi # Should not be allowed to store an entry whose “name” field # already exists. expect_raises(DODB::IndexOverload) do db << Ship.kisaragi end end it "properly deindex" do db = DODB::SpecDataBase.new db_ships_by_name = db.new_index "name", &.name Ship.all_ships.each do |ship| db << ship end Ship.all_ships.each_with_index do |ship, i| db.delete i end Ship.all_ships.each do |ship| db_ships_by_name.get?(ship.name).should be_nil end end it "properly reindex" do db = DODB::SpecDataBase.new db_ships_by_name = db.new_index "name", &.name key = db << Ship.kisaragi # We give the old id to the new ship, to get it replaced in # the database. some_new_ship = Ship.all_ships[2].clone db[key] = some_new_ship db[key].should eq(some_new_ship) db_ships_by_name.get?(some_new_ship.name).should eq(some_new_ship) end end describe "partitions" do it "do basic partitioning" do db = DODB::SpecDataBase.new db_ships_by_class = db.new_partition "class", &.klass Ship.all_ships.each do |ship| db << ship end Ship.all_ships.each do |ship| db_ships_by_class.get(ship.klass).should contain(ship) end # We extract the possible classes to do test on them. ship_classes = Ship.all_ships.map(&.klass).uniq ship_classes.each do |klass| partition = db_ships_by_class.get klass # A partition on “class” should contain entries that all # share the same value of “class”. partition.map(&.klass.==(klass)).reduce { |a, b| a && b }.should be_true end end end describe "tags" do it "do basic tagging" do db = DODB::SpecDataBase.new db_ships_by_tags = db.new_tags "tags", &.tags Ship.all_ships.each do |ship| db << ship end db_ships_by_tags.get("flagship").should eq([Ship.flagship]) # All returned entries should have the requested tag. db_ships_by_tags.get("name ship") .map(&.tags.includes?("name ship")) .reduce { |a, e| a && e } .should be_true # There shouldn’t be one in our data about WWII Japanese warships… db_ships_by_tags.get("starship").should eq([] of Ship) end it "properly removes tags" do db = DODB::SpecDataBase.new db_ships_by_tags = db.new_tags "tags", &.tags Ship.all_ships.each do |ship| db << ship end # Removing the “flagship” tag, brace for impact. flagship, index = db_ships_by_tags.get_with_indices("flagship")[0] flagship.tags = [] of String db[index] = flagship # ship, index = db_ships_by_tags.update(tag: "flagship") do |ship, index| # ship.tags = [] of String # db[index] = ship # end db_ships_by_tags.get("flagship").should eq([] of Ship) end end describe "tools" do it "rebuilds indexes" do db = DODB::SpecDataBase.new db_ships_by_name = db.new_index "name", &.name db_ships_by_class = db.new_partition "class", &.klass db_ships_by_tags = db.new_tags "tags", &.tags Ship.all_ships.each do |ship| db << ship end db.reindex_everything! Ship.all_ships.each do |ship| db_ships_by_name.get?(ship.name).should eq(ship) db_ships_by_class.get(ship.klass).should contain(ship) end end it "migrates properly" do old_db = DODB::DataBase(PrimitiveShip).new "test-storage-migration-origin" old_ships_by_name = old_db.new_index "name", &.name old_ships_by_class = old_db.new_partition "class", &.class_name PrimitiveShip.all_ships.each do |ship| old_db << ship end # At this point, the “old” DB is filled. Now we need to convert # to the new DB. new_db = DODB::SpecDataBase.new "-migration-target" new_ships_by_name = new_db.new_index "name", &.name new_ships_by_class = new_db.new_partition "class", &.klass new_ships_by_tags = new_db.new_tags "tags", &.tags old_db.each_with_index do |ship, index| new_ship = Ship.new ship.name, klass: ship.class_name, id: ship.id, tags: Array(String).new.tap { |tags| tags << "name ship" if ship.name == ship.class_name } new_db[index] = new_ship end # At this point, the conversion is done, so… we’re making a few # arbitrary tests on the new data. old_db.each_with_index do |old_ship, old_index| ship = new_db[old_index] ship.id.should eq(old_ship.id) ship.klass.should eq(old_ship.class_name) ship.tags.any?(&.==("name ship")).should be_true if ship.name == ship.klass end end end end