diff options
| author | Dan Gudmundsson <[email protected]> | 2016-01-08 10:43:47 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2016-02-23 14:18:55 +0100 |
| commit | a5d1c7b8fc58a8dff36d8f72df22e2c372610799 (patch) | |
| tree | 89d8f3a5c656167fca008f717be0286399c81bd1 /lib/wx/test/wx_basic_SUITE.erl | |
| parent | bd5c928e1c47f05d0d7b18f4e28e42d276cfc038 (diff) | |
| download | otp-a5d1c7b8fc58a8dff36d8f72df22e2c372610799.tar.gz otp-a5d1c7b8fc58a8dff36d8f72df22e2c372610799.tar.bz2 otp-a5d1c7b8fc58a8dff36d8f72df22e2c372610799.zip | |
wx: Fix a crash with sending two binaries to command queue
Introduced when I optimized the binary handling.
Diffstat (limited to 'lib/wx/test/wx_basic_SUITE.erl')
| -rw-r--r-- | lib/wx/test/wx_basic_SUITE.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/wx/test/wx_basic_SUITE.erl b/lib/wx/test/wx_basic_SUITE.erl index 2c746158e5..0b919f6254 100644 --- a/lib/wx/test/wx_basic_SUITE.erl +++ b/lib/wx/test/wx_basic_SUITE.erl @@ -338,6 +338,20 @@ data_types(_Config) -> ?m(true, is_boolean(wxCalendarCtrl:setDate(Cal,DateTime))), ?m({Date,_}, wxCalendarCtrl:getDate(Cal)), + %% Images, test sending and reading binaries + Colors = << <<200:8, 199:8, 198:8 >> || _ <- lists:seq(1, 128*64) >>, + Alpha = << <<255:8>> || _ <- lists:seq(1, 128*64) >>, + ImgRGB = ?mt(wxImage, wxImage:new(128, 64, Colors)), + ?m(true, wxImage:ok(ImgRGB)), + ?m(false, wxImage:hasAlpha(ImgRGB)), + ?m(Colors, wxImage:getData(ImgRGB)), + + ImgRGBA = ?mt(wxImage, wxImage:new(128, 64, Colors, Alpha)), + ?m(true, wxImage:ok(ImgRGBA)), + ?m(true, wxImage:hasAlpha(ImgRGBA)), + ?m(Colors, wxImage:getData(ImgRGBA)), + ?m(Alpha, wxImage:getAlpha(ImgRGBA)), + wxClientDC:destroy(CDC), %%wx_test_lib:wx_destroy(Frame,Config). wx:destroy(). |