basis/uuid/uuid-tests.factor

   1 ! Copyright (C) 2008 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: kernel uuid tools.test ;
   5
   6 IN: uuid.tests
   7
   8 { t } [ NAMESPACE_DNS  [ uuid-parse uuid-unparse ] keep = ] unit-test
   9 { t } [ NAMESPACE_URL  [ uuid-parse uuid-unparse ] keep = ] unit-test
  10 { t } [ NAMESPACE_OID  [ uuid-parse uuid-unparse ] keep = ] unit-test
  11 { t } [ NAMESPACE_X500 [ uuid-parse uuid-unparse ] keep = ] unit-test
  12
  13 { t } [ NAMESPACE_URL "ABCD" uuid3
  14         "2e10e403-d7fa-3ffb-808f-ab834a46890e" = ] unit-test
  15
  16 { t } [ NAMESPACE_URL "ABCD" uuid5
  17         "0aa883d6-7953-57e7-a8f0-66db29ce5a91" = ] unit-test