forestdb/paths/paths-tests.factor

   1 ! Copyright (C) 2014 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: forestdb.paths kernel tools.test ;
   4 IN: forestdb.paths.tests
   5
   6 { "1.fq.0" } [ "0.fq.0" next-vnode-name ] unit-test
   7 { "1.fq.0" } [ "0.fq.1" next-vnode-name ] unit-test
   8 { "100.fq.0" } [ "99.fq.0" next-vnode-name ] unit-test
   9 { "100.fq.0" } [ "99.fq.1" next-vnode-name ] unit-test
  10 { "100.fq.0" } [ "99.fq.20" next-vnode-name ] unit-test
  11 { "100.fq.0" } [ "099.fq.20" next-vnode-name ] unit-test
  12 { "0100.fq.0" } [ "0099.fq.20" next-vnode-name ] unit-test
  13
  14 { "00001.fq.0" } [ "00000.fq.0" next-vnode-name ] unit-test
  15 { "001.fq.0" } [ "000.fq.1" next-vnode-name ] unit-test
  16 { "000100.fq.0" } [ "000099.fq.0" next-vnode-name ] unit-test
  17 { "00100.fq.0" } [ "00099.fq.1" next-vnode-name ] unit-test
  18 { "00000000100.fq.0" } [ "00000000099.fq.20" next-vnode-name ] unit-test
  19
  20 { "0.fq.0" } [ "00.fq.00" canonical-fdb-name ] unit-test
  21 { "1.fq.0" } [ "01.fq.00" canonical-fdb-name ] unit-test
  22 { "0.fq.1" } [ "00.fq.01" canonical-fdb-name ] unit-test
  23 { "100.fq.10" } [ "000100.fq.010" canonical-fdb-name ] unit-test
  24
  25 { "0.fq.1" } [ "0.fq.0" next-vnode-version-name ] unit-test
  26 { "0.fq.2" } [ "0.fq.1" next-vnode-version-name ] unit-test
  27 { "99.fq.1" } [ "99.fq.0" next-vnode-version-name ] unit-test
  28 { "99.fq.2" } [ "99.fq.1" next-vnode-version-name ] unit-test
  29 { "99.fq.21" } [ "99.fq.20" next-vnode-version-name ] unit-test
  30
  31 [ "fq" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  32 [ "0.fq" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  33 [ "0.fq." ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  34 [ ".fq.0" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  35 [ "1fq.0" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  36 [ "1fq0" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  37 [ "1.fq0" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  38 [ "1.fq.0.0" ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with
  39 [ "1.fq.00." ensure-fdb-filename drop ] [ not-an-fdb-filename? ] must-fail-with