attribute_test.sj

       ClearAll(a)
T   Protect(a) == ["a"]
T   Attributes(a) == [Protected]
T   Unprotect(a) == ["a"]
T   Attributes(a) == []
       ClearAll(a)