Mercurial > projects > ldc
view tests/mini/bug73.d @ 1065:dc576c7e4b1e
Fix to make sure to create gen/ in build dir and unbreak build with older perl
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Sun, 08 Mar 2009 16:37:55 +0100 |
parents | 1bb99290e03a |
children |
line wrap: on
line source
int find(char[] s, dchar c) { // c is a universal character foreach (int i, dchar c2; s) { if (c == c2) return i; } return -1; } void main() { char[] hello = "hello world"; int i = find(hello, 'w'); assert(i == 6); i = find(hello, 'z'); assert(i == -1); }