2008-12-20 01:22:58 -05:00
|
|
|
! Copyright (C) 2008 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
2008-12-20 21:38:35 -05:00
|
|
|
USING: kernel uuid tools.test ;
|
2008-12-20 01:22:58 -05:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ t } [ NAMESPACE_DNS [ uuid-parse uuid-unparse ] keep = ] unit-test
|
|
|
|
|
{ t } [ NAMESPACE_URL [ uuid-parse uuid-unparse ] keep = ] unit-test
|
|
|
|
|
{ t } [ NAMESPACE_OID [ uuid-parse uuid-unparse ] keep = ] unit-test
|
|
|
|
|
{ t } [ NAMESPACE_X500 [ uuid-parse uuid-unparse ] keep = ] unit-test
|
2008-12-20 01:22:58 -05:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ t } [ NAMESPACE_URL "ABCD" uuid3
|
2008-12-20 21:38:35 -05:00
|
|
|
"2e10e403-d7fa-3ffb-808f-ab834a46890e" = ] unit-test
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ t } [ NAMESPACE_URL "ABCD" uuid5
|
2008-12-20 21:38:35 -05:00
|
|
|
"0aa883d6-7953-57e7-a8f0-66db29ce5a91" = ] unit-test
|
