Update to 2.0.0 tree from current Fremantle build

[opencv] / tests / octave / test_adaptors.m

diff --git a/tests/octave/test_adaptors.m b/tests/octave/test_adaptors.m
new file mode 100755 (executable)
index 0000000..7903368
--- /dev/null
+++ b/tests/octave/test_adaptors.m
@@ -0,0 +1,33 @@
+#!/usr/bin/octave -q
+
+addpath(getenv("OCTAVEPATH"));
+
+highgui;
+cv;
+
+I=cvLoadImage("frame.jpg");
+a=cv2im(I);
+I2=im2cv(a, CV_8UC(1));
+
+imshow(cv2im(I));
+imshow(cv2im(I2));
+
+a=rand(3,3,3);
+b=mat2cv(a,CV_64FC(1));
+c=cv2mat(b);
+assert(all(a==c));
+
+a=eye(3);
+b=mat2cv(a,CV_64FC(1));
+c=cv2mat(b);
+assert(all(a==c));
+
+assert(all(cv2mat(mat2cv(eye(3),6))==eye(3)));
+
+I=cvLoadImage("frame.jpg");
+a=cv2im(I);
+I2=cvCloneImage(I);
+cvSobel(I,I2,2,2);
+imshow(cv2im(I2));
+
+imshow(a);