+
+my $head = $of->head;
+is $head->version, 1, 'head->version';
+is $head->channel_count, 2, 'head->channel_count';
+is $head->pre_skip, 356, 'head->pre_skip';
+is $head->input_sample_rate, 44100, 'head->input_sample_rate';
+is $head->output_gain, 0, 'head->output_gain';
+is $head->mapping_family, 0, 'head->mapping_family';
+is $head->stream_count, 1, 'head->stream_count';
+is $head->coupled_count, 1, 'head->coupled_count';
+is $head->mapping(0), 0, 'head->mapping(0)';
+is $head->mapping(1), 1, 'head->mapping(1)';
+eval { $head->mapping(1000) };
+isn::t $@, '', 'head->mapping(1000) dies';
+