@@ -332,7 +332,7 @@ main = runMocha do
332332 putVar var true
333333
334334 var <- makeVar
335− { db, store } <- setup IDBObjectStore.defaultParameters
335+ { db, store } <- setup IDBDatabase.defaultParameters
336336 IDBDatabase.close db
337337 db <- IDBFactory.open "db" (Just 999) { onUpgradeNeeded : Just (onUpgradeNeeded var)
338338 , onBlocked : Nothing
@@ -396,7 +396,7 @@ main = runMocha do
396396
397397 it "clear()" do
398398 { db } <- setup
399− { storeParams: IDBObjectStore.defaultParameters
399+ { storeParams: IDBDatabase.defaultParameters
400400 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
401401 key <- IDBObjectStore.add store "patate" (Just 14)
402402 _ <- IDBObjectStore.clear store
@@ -407,7 +407,7 @@ main = runMocha do
407407
408408 it "count()" do
409409 { db } <- setup
410− { storeParams: IDBObjectStore.defaultParameters
410+ { storeParams: IDBDatabase.defaultParameters
411411 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
412412 key <- IDBObjectStore.add store "patate" (Just 14)
413413 key <- IDBObjectStore.add store "autruche" (Just 42)
@@ -418,7 +418,7 @@ main = runMocha do
418418
419419 it "getKey()" do
420420 { db } <- setup
421− { storeParams: IDBObjectStore.defaultParameters
421+ { storeParams: IDBDatabase.defaultParameters
422422 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
423423 key <- IDBObjectStore.add store "patate" (Just 14)
424424 mkey <- IDBObjectStore.getKey store (IDBKeyRange.only 14)
@@ -431,7 +431,7 @@ main = runMocha do
431431
432432 it "getAllKeys()" do
433433 { db } <- setup
434− { storeParams: IDBObjectStore.defaultParameters
434+ { storeParams: IDBDatabase.defaultParameters
435435 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
436436 key1 <- IDBObjectStore.add store "patate" (Just 14)
437437 key2 <- IDBObjectStore.add store "autruche" (Just 42)
@@ -462,7 +462,7 @@ main = runMocha do
462462 , onComplete: pure unit
463463 }
464464 { db } <- setup
465− { storeParams: IDBObjectStore.defaultParameters
465+ { storeParams: IDBDatabase.defaultParameters
466466 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
467467 _ <- IDBObjectStore.openCursor store Nothing Next cb
468468 _ <- IDBObjectStore.openCursor store Nothing NextUnique cb
@@ -480,7 +480,7 @@ main = runMocha do
480480 , onComplete: pure unit
481481 }
482482 { db } <- setup
483− { storeParams: IDBObjectStore.defaultParameters
483+ { storeParams: IDBDatabase.defaultParameters
484484 , onUpgradeNeeded: Just $ \_ store -> launchAff' do
485485 _ <- IDBObjectStore.openKeyCursor store Nothing Next cb
486486 _ <- IDBObjectStore.openKeyCursor store Nothing NextUnique cb
@@ -523,16 +523,16 @@ main = runMocha do
523523
524524 it "returns an IDBIndex and the properties are set correctly" do
525525 { db, index } <- setup
526− { storeParams : IDBObjectStore.defaultParameters
527− , indexParams : IDBIndex.defaultParameters
526+ { storeParams : IDBDatabase.defaultParameters
527+ , indexParams : IDBObjectStore.defaultParameters
528528 , onUpgradeNeeded : Nothing
529529 , keyPath : []
530530 , values : []
531531 }
532532 IDBIndex.name index `shouldEqual` "index"
533533 IDBIndex.keyPath index `shouldEqual` []
534− IDBIndex.unique index `shouldEqual` IDBIndex.defaultParameters.unique
535− IDBIndex.multiEntry index `shouldEqual` IDBIndex.defaultParameters.multiEntry
534+ IDBIndex.unique index `shouldEqual` IDBObjectStore.defaultParameters.unique
535+ IDBIndex.multiEntry index `shouldEqual` IDBObjectStore.defaultParameters.multiEntry
536536 tearDown db
537537
538538 it "attempt to create an index that requires unique values on an object store already contains duplicates" do
@@ -540,7 +540,7 @@ main = runMocha do
540540 txVar <- makeVar
541541 dbVar <- makeVar
542542 res <- attempt $ setup
543− { storeParams : IDBObjectStore.defaultParameters
543+ { storeParams : IDBDatabase.defaultParameters
544544 , indexParams : { unique : true
545545 , multiEntry : false
546546 }
@@ -565,7 +565,7 @@ main = runMocha do
565565 { storeParams : { keyPath : ["key"]
566566 , autoIncrement : false
567567 }
568− , indexParams : IDBIndex.defaultParameters
568+ , indexParams : IDBObjectStore.defaultParameters
569569 , keyPath : ["indexedProperty"]
570570 , values : [ { key: "key1", indexedProperty: "indexed_1" } :+: Nothing
571571 , { key: "key2", indexedProperty: "indexed_2" } :+: Nothing
@@ -579,8 +579,8 @@ main = runMocha do
579579
580580 it "empty keyPath" do
581581 { db } <- setup
582− { storeParams : IDBObjectStore.defaultParameters
583− , indexParams : IDBIndex.defaultParameters
582+ { storeParams : IDBDatabase.defaultParameters
583+ , indexParams : IDBObjectStore.defaultParameters
584584 , keyPath : []
585585 , values : [ "object_1" :+: (Just $ toKey 1)
586586 , "object_2" :+: (Just $ toKey 2)
@@ -598,7 +598,7 @@ main = runMocha do
598598 { storeParams : { keyPath: ["key"]
599599 , autoIncrement: false
600600 }
601− , indexParams : IDBIndex.defaultParameters
601+ , indexParams : IDBObjectStore.defaultParameters
602602 , keyPath : ["i"]
603603 , values : [ { key: "date", i: (toKey date) } :+: Nothing
604604 ]
@@ -614,7 +614,7 @@ main = runMocha do
614614 { storeParams : { keyPath: ["key"]
615615 , autoIncrement: false
616616 }
617− , indexParams : IDBIndex.defaultParameters
617+ , indexParams : IDBObjectStore.defaultParameters
618618 , keyPath : ["i"]
619619 , values : [ { key: "num", i: (toKey num) } :+: Nothing
620620 ]
@@ -630,7 +630,7 @@ main = runMocha do
630630 { storeParams : { keyPath: ["key"]
631631 , autoIncrement: false
632632 }
633− , indexParams : IDBIndex.defaultParameters
633+ , indexParams : IDBObjectStore.defaultParameters
634634 , keyPath : ["i"]
635635 , values : [ { key: "array", i: (toKey array) } :+: Nothing
636636 ]
@@ -643,7 +643,7 @@ main = runMocha do
643643 it "openKeyCursor() - throw InvalidStateError on index deleted by aborted upgrade" do
644644 res <- attempt $ setup
645645 { storeParams : { keyPath: ["key"], autoIncrement: false }
646− , indexParams : IDBIndex.defaultParameters
646+ , indexParams : IDBObjectStore.defaultParameters
647647 , keyPath : ["indexedProperty"]
648648 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
649649 ]
@@ -668,7 +668,7 @@ main = runMocha do
668668 it "openKeyCursor() - throw TransactionInactiveError on aborted transaction" do
669669 { db } <- setup
670670 { storeParams : { keyPath: ["key"], autoIncrement: false }
671− , indexParams : IDBIndex.defaultParameters
671+ , indexParams : IDBObjectStore.defaultParameters
672672 , keyPath : ["indexedProperty"]
673673 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
674674 ]
@@ -694,7 +694,7 @@ main = runMocha do
694694 it "openKeyCursor() - throw InvalidStateError when the index is deleted" do
695695 { db } <- setup
696696 { storeParams : { keyPath: ["key"], autoIncrement: false }
697− , indexParams : IDBIndex.defaultParameters
697+ , indexParams : IDBObjectStore.defaultParameters
698698 , keyPath : ["indexedProperty"]
699699 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
700700 ]
@@ -717,7 +717,7 @@ main = runMocha do
717717 it "openCursor() - throw InvalidStateError on index deleted by aborted upgrade" do
718718 res <- attempt $ setup
719719 { storeParams : { keyPath: ["key"], autoIncrement: false }
720− , indexParams : IDBIndex.defaultParameters
720+ , indexParams : IDBObjectStore.defaultParameters
721721 , keyPath : ["indexedProperty"]
722722 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
723723 ]
@@ -742,7 +742,7 @@ main = runMocha do
742742 it "openCursor() - throw TransactionInactiveError on aborted transaction" do
743743 { db } <- setup
744744 { storeParams : { keyPath: ["key"], autoIncrement: false }
745− , indexParams : IDBIndex.defaultParameters
745+ , indexParams : IDBObjectStore.defaultParameters
746746 , keyPath : ["indexedProperty"]
747747 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
748748 ]
@@ -768,7 +768,7 @@ main = runMocha do
768768 it "openCursor() - throw InvalidStateError when the index is deleted" do
769769 { db } <- setup
770770 { storeParams : { keyPath: ["key"], autoIncrement: false }
771− , indexParams : IDBIndex.defaultParameters
771+ , indexParams : IDBObjectStore.defaultParameters
772772 , keyPath : ["indexedProperty"]
773773 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
774774 ]
@@ -790,7 +790,7 @@ main = runMocha do
790790
791791 it "getKey() - multiEntry - adding keys" do
792792 { db } <- setup
793− { storeParams : IDBObjectStore.defaultParameters
793+ { storeParams : IDBDatabase.defaultParameters
794794 , indexParams : { unique: false, multiEntry: true }
795795 , keyPath : ["name"]
796796 , values : [ { name: ["patate", "autruche"] } :+: (Just $ toKey 1)
@@ -812,7 +812,7 @@ main = runMocha do
812812 it "get() - returns the record with the first key in the range" do
813813 { db } <- setup
814814 { storeParams : { keyPath: ["key"], autoIncrement: false }
815− , indexParams : IDBIndex.defaultParameters
815+ , indexParams : IDBObjectStore.defaultParameters
816816 , keyPath : ["indexedProperty"]
817817 , values : [ { key: 14, indexedProperty: "patate" } :+: Nothing
818818 , { key: 42, indexedProperty: "autruche" } :+: Nothing
@@ -860,8 +860,8 @@ main = runMocha do
860860
861861 it "continue() - iterate to the next record" do
862862 { db } <- setup
863− { storeParams : IDBObjectStore.defaultParameters
864− , indexParams : IDBIndex.defaultParameters
863+ { storeParams : IDBDatabase.defaultParameters
864+ , indexParams : IDBObjectStore.defaultParameters
865865 , keyPath : []
866866 , values : [ "cupcake" :+: (Just $ toKey 4)
867867 , "pancake" :+: (Just $ toKey 2)
@@ -899,8 +899,8 @@ main = runMocha do
899899
900900 it "continue() - attempt to iterate in the wrong direction" do
901901 { db } <- setup
902− { storeParams : IDBObjectStore.defaultParameters
903− , indexParams : IDBIndex.defaultParameters
902+ { storeParams : IDBDatabase.defaultParameters
903+ , indexParams : IDBObjectStore.defaultParameters
904904 , keyPath : []
905905 , values : [ "cupcake" :+: (Just $ toKey 4)
906906 , "pancake" :+: (Just $ toKey 2)
@@ -936,7 +936,7 @@ main = runMocha do
936936 it "advance() - iterate cursor number of times specified by count" do
937937 { db } <- setup
938938 { storeParams : { keyPath: ["pKey"], autoIncrement: false }
939− , indexParams : IDBIndex.defaultParameters
939+ , indexParams : IDBObjectStore.defaultParameters
940940 , keyPath : []
941941 , values : [ { pKey: "pkey_0", iKey: "ikey_0" } :+: Nothing
942942 , { pKey: "pkey_1", iKey: "ikey_1" } :+: Nothing
@@ -975,7 +975,7 @@ main = runMocha do
975975 it "delete() - remove a record from the object store" do
976976 { db } <- setup
977977 { storeParams : { keyPath: ["pKey"], autoIncrement: false }
978− , indexParams : IDBIndex.defaultParameters
978+ , indexParams : IDBObjectStore.defaultParameters
979979 , keyPath : []
980980 , values : [ { pKey: "pkey_0", iKey: "ikey_0" } :+: Nothing
981981 , { pKey: "pkey_1", iKey: "ikey_1" } :+: Nothing
@@ -1009,7 +1009,7 @@ main = runMocha do
10091009 it "update() - modify a record in the object store" do
10101010 { db } <- setup
10111011 { storeParams : { keyPath: ["pKey"], autoIncrement: false }
1012− , indexParams : IDBIndex.defaultParameters
1012+ , indexParams : IDBObjectStore.defaultParameters
10131013 , keyPath : []
10141014 , values : [ { pKey: "pkey_0", iKey: "ikey_0" } :+: Nothing
10151015 ]
@@ -1041,7 +1041,7 @@ main = runMocha do
10411041 it "update() - throw ReadOnlyError after update on ReadOnly transaction" do
10421042 { db } <- setup
10431043 { storeParams : { keyPath: ["pKey"], autoIncrement: false }
1044− , indexParams : IDBIndex.defaultParameters
1044+ , indexParams : IDBObjectStore.defaultParameters
10451045 , keyPath : []
10461046 , values : [ { pKey: "pkey_0", iKey: "ikey_0" } :+: Nothing
10471047 ]