FL_USER flags on ohter than T_DATA are reserved [Misc #18059]

This commit is contained in:
Nobuyoshi Nakada 2021-09-24 19:23:15 +09:00
Родитель 845c017e08
Коммит 225a29b9bc
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 7CD2805BFA3770C6
2 изменённых файлов: 20 добавлений и 20 удалений

Просмотреть файл

@ -20,4 +20,24 @@ describe "RBasic support for RData" do
@data = -> { [@wrapping.wrap_struct(1024), @wrapping.wrap_struct(1025)] }
end
it_should_behave_like :rbasic
it "supports user flags" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
@specs.set_flags(obj, 1 << 14 | 1 << 16 | initial).should == 1 << 14 | 1 << 16 | initial
@specs.get_flags(obj).should == 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj, initial).should == initial
end
it "supports copying the flags from one object over to the other" do
obj1, obj2 = @data.call
initial = @specs.get_flags(obj1)
@specs.get_flags(obj2).should == initial
@specs.set_flags(obj1, 1 << 14 | 1 << 16 | initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj1, initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == initial
end
end

Просмотреть файл

@ -54,26 +54,6 @@ describe :rbasic, shared: true do
end
end
it "supports user flags" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
@specs.set_flags(obj, 1 << 14 | 1 << 16 | initial).should == 1 << 14 | 1 << 16 | initial
@specs.get_flags(obj).should == 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj, initial).should == initial
end
it "supports copying the flags from one object over to the other" do
obj1, obj2 = @data.call
initial = @specs.get_flags(obj1)
@specs.get_flags(obj2).should == initial
@specs.set_flags(obj1, 1 << 14 | 1 << 16 | initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj1, initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == initial
end
it "supports retrieving the (meta)class" do
obj, _ = @data.call
@specs.get_klass(obj).should == obj.class