https://github.com/cogciprocate/ocl/issues/48

test.rs

extern crate ocl;

use ocl::*;

macro_rules! test {
    ($obj: expr, $func: ident) => {
        println!(concat!("\t", stringify!($obj), ".", stringify!($func), "(): {:?}"),
            $obj.$func().chars().last() == Some('\0'));
    };
    ($prefix: expr, $obj: expr, $func: ident) => {
        print!("{}", $prefix);
        test!($obj, $func);
    }
}

fn main() {
    println!("Has #48:");
    for platform in Platform::list() {
        test!(platform, name);
        test!(platform, profile);
        test!(platform, version);
        test!(platform, vendor);
        test!(platform, extensions);
        for device in Device::list_all(&platform) {
            println!("");
            test!(device, name);
            test!(device, vendor);
            test!(device, to_string);
        }
    }
}