library(xptr)

a <- new_xptr("0xdeadbeef")
is_xptr(a)
is.character(xptr_address(a))
is.character(xptr_address(a, FALSE))

b <- new_xptr("0x11223344")
is_xptr(b)
is.character(xptr_address(b))
is.character(xptr_address(b, FALSE))

xptr_clear(b)
is_null_xptr(b)

set_xptr_address(b, xptr_address(a))
is.character(xptr_address(b))
is.character(xptr_address(b, FALSE))

xptr_clear(a)
xptr_clear(b)

a <- new_xptr("0x11223344")
b <- new_xptr("0x11223344", a)
is_xptr(a)
is_xptr(b)

n <- xptr_tag(b)
is_xptr(n)