changeset 364:d3eb7e8262d1

bit[] ~= bit[] Regan Heath <regan@netwin.co.nz> 2005-03-17 news:opsnra6xw523k2f5@nrage.netwin.co.nz
author thomask
date Fri, 25 Mar 2005 08:33:16 +0000
parents 56eae111e8ef
children 2c399b802ed9
files run/opCatAssign_09.d run/opCatAssign_10.d
diffstat 2 files changed, 168 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/opCatAssign_09.d	Fri Mar 25 08:33:16 2005 +0000
@@ -0,0 +1,84 @@
+// $HeadURL$
+// $Date$
+// $Author$
+
+// @author@	Regan Heath <regan@netwin.co.nz>	
+// @date@	2005-03-17
+// @uri@	news:opsnra6xw523k2f5@nrage.netwin.co.nz
+
+module dstress.run.opCatAssign_09;
+
+int main(){
+
+	bit[] a;
+	bit[] b;
+    
+	a.length = 8;
+	a[0] = 0;
+	a[1] = 1;
+	a[2] = 1;
+	a[3] = 0;
+	a[4] = 0;
+	a[5] = 1;
+	a[6] = 0;
+	a[7] = 0;
+    
+	assert(a.length==8);
+	assert(b.length==0);
+	b ~= a;
+
+	assert(a.length==8);
+	assert(b.length==8);
+	
+	assert(a[0]==0);
+	assert(a[1]==1);
+	assert(a[2]==1);
+	assert(a[3]==0);
+	assert(a[4]==0);
+	assert(a[5]==1);
+	assert(a[6]==0);
+	assert(a[7]==0);
+	
+	assert(b[0]==0);
+	assert(b[1]==1);
+	assert(b[2]==1);
+	assert(b[3]==0);
+	assert(b[4]==0);
+	assert(b[5]==1);
+	assert(b[6]==0);
+	assert(b[7]==0);
+	
+	
+	b ~= a;
+
+	assert(a.length==8);
+	assert(b.length==16);
+
+	assert(a[0]==0);
+	assert(a[1]==1);
+	assert(a[2]==1);
+	assert(a[3]==0);
+	assert(a[4]==0);
+	assert(a[5]==1);
+	assert(a[6]==0);
+	assert(a[7]==0);
+	
+	assert(b[0]==0);
+	assert(b[1]==1);
+	assert(b[2]==1);
+	assert(b[3]==0);
+	assert(b[4]==0);
+	assert(b[5]==1);
+	assert(b[6]==0);
+	assert(b[7]==0);
+	assert(b[8]==0);
+	assert(b[9]==1);
+	assert(b[10]==1);
+	assert(b[11]==0);
+	assert(b[12]==0);
+	assert(b[13]==1);
+	assert(b[14]==0);
+	assert(b[15]==0);
+
+	return 0;
+}
\ No newline at end of file
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run/opCatAssign_10.d	Fri Mar 25 08:33:16 2005 +0000
@@ -0,0 +1,84 @@
+// $HeadURL$
+// $Date$
+// $Author$
+
+// @author@	Regan Heath <regan@netwin.co.nz>	
+// @date@	2005-03-17
+// @uri@	news:opsnra6xw523k2f5@nrage.netwin.co.nz
+
+module dstress.run.opCatAssign_10;
+
+int main(){
+
+	byte[] a;
+	byte[] b;
+    
+	a.length = 8;
+	a[0] = 0;
+	a[1] = 1;
+	a[2] = 1;
+	a[3] = 0;
+	a[4] = 0;
+	a[5] = 1;
+	a[6] = 0;
+	a[7] = 0;
+    
+	assert(a.length==8);
+	assert(b.length==0);
+	b ~= a;
+
+	assert(a.length==8);
+	assert(b.length==8);
+	
+	assert(a[0]==0);
+	assert(a[1]==1);
+	assert(a[2]==1);
+	assert(a[3]==0);
+	assert(a[4]==0);
+	assert(a[5]==1);
+	assert(a[6]==0);
+	assert(a[7]==0);
+	
+	assert(b[0]==0);
+	assert(b[1]==1);
+	assert(b[2]==1);
+	assert(b[3]==0);
+	assert(b[4]==0);
+	assert(b[5]==1);
+	assert(b[6]==0);
+	assert(b[7]==0);
+	
+	
+	b ~= a;
+
+	assert(a.length==8);
+	assert(b.length==16);
+
+	assert(a[0]==0);
+	assert(a[1]==1);
+	assert(a[2]==1);
+	assert(a[3]==0);
+	assert(a[4]==0);
+	assert(a[5]==1);
+	assert(a[6]==0);
+	assert(a[7]==0);
+	
+	assert(b[0]==0);
+	assert(b[1]==1);
+	assert(b[2]==1);
+	assert(b[3]==0);
+	assert(b[4]==0);
+	assert(b[5]==1);
+	assert(b[6]==0);
+	assert(b[7]==0);
+	assert(b[8]==0);
+	assert(b[9]==1);
+	assert(b[10]==1);
+	assert(b[11]==0);
+	assert(b[12]==0);
+	assert(b[13]==1);
+	assert(b[14]==0);
+	assert(b[15]==0);
+
+	return 0;
+}
\ No newline at end of file