Remove a test directory before running.
[libdcp.git] / test / verify_test.cc
index a77a20aa2b97b379cb77359722125b017acafe30..652bf12da894220e1337b8182e2ab6a5fad8729b 100644 (file)
     files in the program, then also delete it here.
 */
 
+
 #include "compose.hpp"
 #include "cpl.h"
 #include "dcp.h"
+#include "file.h"
 #include "interop_subtitle_asset.h"
 #include "j2k_transcode.h"
 #include "mono_picture_asset.h"
 
 
 using std::list;
+using std::make_pair;
+using std::make_shared;
 using std::pair;
+using std::shared_ptr;
 using std::string;
 using std::vector;
-using std::make_pair;
-using std::make_shared;
 using boost::optional;
 using namespace boost::filesystem;
-using std::shared_ptr;
 
 
 static list<pair<string, optional<path>>> stages;
@@ -86,7 +88,7 @@ static string const dcp_test1_pkl_id = filename_to_id(dcp_test1_pkl);
 static boost::filesystem::path const dcp_test1_cpl = find_file("test/ref/DCP/dcp_test1", "cpl_").filename();
 static string const dcp_test1_cpl_id = filename_to_id(dcp_test1_cpl);
 
-static string const dcp_test1_asset_map_id = "5d51e8a1-b2a5-4da6-9b66-4615c3609440";
+static string const dcp_test1_asset_map_id = "017b3de4-6dda-408d-b19b-6711354b0bc3";
 
 static boost::filesystem::path const encryption_test_cpl = find_file("test/ref/DCP/encryption_test", "cpl_").filename();
 static string const encryption_test_cpl_id = filename_to_id(encryption_test_cpl);
@@ -115,6 +117,9 @@ prepare_directory (path path)
 }
 
 
+/** Copy dcp_test{reference_number} to build/test/verify_test{verify_test_suffix}
+ *  to make a new sacrifical test DCP.
+ */
 static path
 setup (int reference_number, string verify_test_suffix)
 {
@@ -140,12 +145,8 @@ write_dcp_with_single_asset (path dir, shared_ptr<dcp::ReelAsset> reel_asset, dc
        cpl->add (reel);
        auto dcp = make_shared<dcp::DCP>(dir);
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp->set_annotation_text("hello");
+       dcp->write_xml ();
 
        return cpl;
 }
@@ -171,18 +172,34 @@ public:
                fclose (f);
        }
 
+       class ChangeChecker
+       {
+       public:
+               ChangeChecker(Editor* editor)
+                       : _editor(editor)
+               {
+                       _old_content = _editor->_content;
+               }
+
+               ~ChangeChecker()
+               {
+                       BOOST_REQUIRE(_old_content != _editor->_content);
+               }
+       private:
+               Editor* _editor;
+               std::string _old_content;
+       };
+
        void replace (string a, string b)
        {
-               auto old_content = _content;
+               ChangeChecker cc(this);
                boost::algorithm::replace_all (_content, a, b);
-               BOOST_REQUIRE (_content != old_content);
        }
 
        void delete_first_line_containing (string s)
        {
-               vector<string> lines;
-               boost::algorithm::split (lines, _content, boost::is_any_of("\r\n"), boost::token_compress_on);
-               auto old_content = _content;
+               ChangeChecker cc(this);
+               auto lines = as_lines();
                _content = "";
                bool done = false;
                for (auto i: lines) {
@@ -192,15 +209,13 @@ public:
                                done = true;
                        }
                }
-               BOOST_REQUIRE (_content != old_content);
        }
 
        void delete_lines (string from, string to)
        {
-               vector<string> lines;
-               boost::algorithm::split (lines, _content, boost::is_any_of("\r\n"), boost::token_compress_on);
+               ChangeChecker cc(this);
+               auto lines = as_lines();
                bool deleting = false;
-               auto old_content = _content;
                _content = "";
                for (auto i: lines) {
                        if (i.find(from) != string::npos) {
@@ -213,10 +228,54 @@ public:
                                deleting = false;
                        }
                }
-               BOOST_REQUIRE (_content != old_content);
+       }
+
+       void insert (string after, string line)
+       {
+               ChangeChecker cc(this);
+               auto lines = as_lines();
+               _content = "";
+               bool replaced = false;
+               for (auto i: lines) {
+                       _content += i + "\n";
+                       if (!replaced && i.find(after) != string::npos) {
+                               _content += line + "\n";
+                               replaced = true;
+                       }
+               }
+       }
+
+       void delete_lines_after(string after, int lines_to_delete)
+       {
+               ChangeChecker cc(this);
+               auto lines = as_lines();
+               _content = "";
+               auto iter = std::find_if(lines.begin(), lines.end(), [after](string const& line) {
+                       return line.find(after) != string::npos;
+               });
+               int to_delete = 0;
+               for (auto i = lines.begin(); i != lines.end(); ++i) {
+                       if (i == iter) {
+                               to_delete = lines_to_delete;
+                               _content += *i + "\n";
+                       } else if (to_delete == 0) {
+                               _content += *i + "\n";
+                       } else {
+                               --to_delete;
+                       }
+               }
        }
 
 private:
+       friend class ChangeChecker;
+
+       vector<string> as_lines() const
+       {
+               vector<string> lines;
+               boost::algorithm::split(lines, _content, boost::is_any_of("\r\n"), boost::token_compress_on);
+               return lines;
+       }
+
        path _path;
        std::string _content;
 };
@@ -239,15 +298,42 @@ void
 check_verify_result (vector<path> dir, vector<dcp::VerificationNote> test_notes)
 {
        auto notes = dcp::verify ({dir}, &stage, &progress, xsd_test);
-       BOOST_REQUIRE_EQUAL (notes.size(), test_notes.size());
        std::sort (notes.begin(), notes.end());
        std::sort (test_notes.begin(), test_notes.end());
-       for (auto i = 0U; i < notes.size(); ++i) {
-               BOOST_REQUIRE_MESSAGE (notes[i] == test_notes[i], "Note from verify:\n" << notes[i] << "\ndoes not match the expected:\n" << test_notes[i]);
+
+       string message = "\nVerification notes from test:\n";
+       for (auto i: notes) {
+               message += "  " + note_to_string(i) + "\n";
+               message += dcp::String::compose(
+                       "  [%1 %2 %3 %4 %5]\n",
+                       static_cast<int>(i.type()),
+                       static_cast<int>(i.code()),
+                       i.note().get_value_or("<none>"),
+                       i.file().get_value_or("<none>"),
+                       i.line().get_value_or(0)
+                       );
        }
+       message += "Expected:\n";
+       for (auto i: test_notes) {
+               message += "  " + note_to_string(i) + "\n";
+               message += dcp::String::compose(
+                       "  [%1 %2 %3 %4 %5]\n",
+                       static_cast<int>(i.type()),
+                       static_cast<int>(i.code()),
+                       i.note().get_value_or("<none>"),
+                       i.file().get_value_or("<none>"),
+                       i.line().get_value_or(0)
+                       );
+       }
+
+       BOOST_REQUIRE_MESSAGE (notes == test_notes, message);
 }
 
 
+/* Copy dcp_test1 to build/test/verify_test{suffix} then edit a file found by the functor 'file',
+ * replacing from with to.  Verify the resulting DCP and check that the results match the given
+ * list of codes.
+ */
 static
 void
 check_verify_result_after_replace (string suffix, boost::function<path (string)> file, string from, string to, vector<dcp::VerificationNote::Code> codes)
@@ -320,7 +406,7 @@ BOOST_AUTO_TEST_CASE (verify_no_error)
        ++st;
        BOOST_REQUIRE (st == stages.end());
 
-       BOOST_CHECK_EQUAL (notes.size(), 0);
+       BOOST_CHECK_EQUAL (notes.size(), 0U);
 }
 
 
@@ -372,9 +458,9 @@ BOOST_AUTO_TEST_CASE (verify_mismatched_picture_sound_hashes)
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, dcp_test1_cpl_id, canonical(dir / dcp_test1_cpl) },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_PICTURE_HASHES, canonical(dir / "video.mxf") },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_SOUND_HASHES, canonical(dir / "audio.mxf") },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xD9HpNAjKsECGtJEWtwV2/T5ndG8=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 26 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xgVKhC9IkWyzQbgzpFcJ1bpqbtwk=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 19 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xz/y4fI+ocWzVB7cr8pVt2OYpOHA=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 12 }
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xKcJb7S2K5cNm8RG4kfQD5FTeS0A=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 28 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xtfX1mVIKJCVr1m7Y32Nzxf0+Rpw=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 12 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, "value 'xwUmt8G+cFFKMGt0ueS9+F1S4uhc=' is invalid Base64-encoded binary", canonical(dir / dcp_test1_pkl), 20 },
                });
 }
 
@@ -390,8 +476,10 @@ BOOST_AUTO_TEST_CASE (verify_failed_read_content_kind)
 
        check_verify_result (
                { dir },
-               {{ dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::FAILED_READ, string("Bad content kind 'xtrailer'")}}
-               );
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, dcp_test1_cpl_id, canonical(dir / dcp_test1_cpl) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_CONTENT_KIND, string("xtrailer") }
+               });
 }
 
 
@@ -472,7 +560,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_id)
        /* There's no MISMATCHED_CPL_HASHES error here because it can't find the correct hash by ID (since the ID is wrong) */
        check_verify_result_after_replace (
                        "invalid_xml_cpl_id", &cpl,
-                       "<Id>urn:uuid:81fb54df-e1bf-4647-8788-ea7ba154375b", "<Id>urn:uuid:81fb54df-e1bf-4647-8788-ea7ba154375",
+                       "<Id>urn:uuid:6affb8ee-0020-4dff-a53c-17652f6358ab", "<Id>urn:uuid:6affb8ee-0020-4dff-a53c-17652f6358a",
                        { dcp::VerificationNote::Code::INVALID_XML }
                        );
 }
@@ -503,7 +591,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_pkl_id)
 BOOST_AUTO_TEST_CASE (verify_invalid_xml_asset_map_id)
 {
        check_verify_result_after_replace (
-               "invalix_xml_asset_map_id", &asset_map,
+               "invalid_xml_asset_map_id", &asset_map,
                "<Id>urn:uuid:" + dcp_test1_asset_map_id.substr(0, 3),
                "<Id>urn:uuid:x" + dcp_test1_asset_map_id.substr(1, 2),
                { dcp::VerificationNote::Code::INVALID_XML }
@@ -760,6 +848,63 @@ BOOST_AUTO_TEST_CASE (verify_invalid_smpte_subtitles)
 }
 
 
+BOOST_AUTO_TEST_CASE (verify_empty_text_node_in_subtitles)
+{
+       path const dir("build/test/verify_empty_text_node_in_subtitles");
+       prepare_directory (dir);
+       copy_file ("test/data/empty_text.mxf", dir / "subs.mxf");
+       auto asset = make_shared<dcp::SMPTESubtitleAsset>(dir / "subs.mxf");
+       auto reel_asset = make_shared<dcp::ReelSMPTESubtitleAsset>(asset, dcp::Fraction(24, 1), 192, 0);
+       auto cpl = write_dcp_with_single_asset (dir, reel_asset);
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::EMPTY_TEXT },
+                       { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_SUBTITLE_LANGUAGE, canonical(dir / "subs.mxf") },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() },
+               });
+}
+
+
+/** A <Text> node with no content except some <Font> nodes, which themselves do have content */
+BOOST_AUTO_TEST_CASE (verify_empty_text_node_in_subtitles_with_child_nodes)
+{
+       path const dir("build/test/verify_empty_text_node_in_subtitles_with_child_nodes");
+       prepare_directory (dir);
+       copy_file ("test/data/empty_but_with_children.xml", dir / "subs.xml");
+       auto asset = make_shared<dcp::InteropSubtitleAsset>(dir / "subs.xml");
+       auto reel_asset = make_shared<dcp::ReelInteropSubtitleAsset>(asset, dcp::Fraction(24, 1), 192, 0);
+       auto cpl = write_dcp_with_single_asset (dir, reel_asset, dcp::Standard::INTEROP);
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::INVALID_STANDARD },
+               });
+}
+
+
+/** A <Text> node with no content except some <Font> nodes, which themselves also have no content */
+BOOST_AUTO_TEST_CASE (verify_empty_text_node_in_subtitles_with_empty_child_nodes)
+{
+       path const dir("build/test/verify_empty_text_node_in_subtitles_with_empty_child_nodes");
+       prepare_directory (dir);
+       copy_file ("test/data/empty_with_empty_children.xml", dir / "subs.xml");
+       auto asset = make_shared<dcp::InteropSubtitleAsset>(dir / "subs.xml");
+       auto reel_asset = make_shared<dcp::ReelInteropSubtitleAsset>(asset, dcp::Fraction(24, 1), 192, 0);
+       auto cpl = write_dcp_with_single_asset (dir, reel_asset, dcp::Standard::INTEROP);
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::INVALID_STANDARD },
+                       { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::EMPTY_TEXT },
+               });
+}
+
+
 BOOST_AUTO_TEST_CASE (verify_external_asset)
 {
        path const ov_dir("build/test/verify_external_asset");
@@ -813,25 +958,40 @@ BOOST_AUTO_TEST_CASE (verify_valid_cpl_metadata)
 
        dcp::DCP dcp (dir);
        dcp.add (cpl);
-       dcp.write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp.set_annotation_text("hello");
+       dcp.write_xml ();
+}
+
+
+path
+find_prefix(path dir, string prefix)
+{
+       auto iter = std::find_if(directory_iterator(dir), directory_iterator(), [prefix](path const& p) {
+               return boost::starts_with(p.filename().string(), prefix);
+       });
+
+       BOOST_REQUIRE(iter != directory_iterator());
+       return iter->path();
 }
 
 
 path find_cpl (path dir)
 {
-       for (auto i: directory_iterator(dir)) {
-               if (boost::starts_with(i.path().filename().string(), "cpl_")) {
-                       return i.path();
-               }
-       }
+       return find_prefix(dir, "cpl_");
+}
+
 
-       BOOST_REQUIRE (false);
-       return {};
+path
+find_pkl(path dir)
+{
+       return find_prefix(dir, "pkl_");
+}
+
+
+path
+find_asset_map(path dir)
+{
+       return find_prefix(dir, "ASSETMAP");
 }
 
 
@@ -857,12 +1017,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_cpl_metadata_bad_tag)
 
        dcp::DCP dcp (dir);
        dcp.add (cpl);
-       dcp.write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp.set_annotation_text("hello");
+       dcp.write_xml();
 
        {
                Editor e (find_cpl(dir));
@@ -872,8 +1028,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_cpl_metadata_bad_tag)
        check_verify_result (
                { dir },
                {
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:MainSoundXConfiguration'"), canonical(cpl->file().get()), 54 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:MainSoundXSampleRate'"), canonical(cpl->file().get()), 55 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:MainSoundXConfiguration'"), canonical(cpl->file().get()), 50 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:MainSoundXSampleRate'"), canonical(cpl->file().get()), 51 },
                        {
                                dcp::VerificationNote::Type::ERROR,
                                dcp::VerificationNote::Code::INVALID_XML,
@@ -884,7 +1040,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_cpl_metadata_bad_tag)
                                       "MainSoundSampleRate,MainPictureStoredArea,MainPictureActiveArea,MainSubtitleLanguageList?,"
                                       "ExtensionMetadataList?,)'"),
                                canonical(cpl->file().get()),
-                               75
+                               71
                        },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl->id(), canonical(cpl->file().get()) },
                });
@@ -908,12 +1064,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_cpl_metadata_missing_tag)
 
        dcp::DCP dcp (dir);
        dcp.add (cpl);
-       dcp.write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp.set_annotation_text("hello");
+       dcp.write_xml();
 
        {
                Editor e (find_cpl(dir));
@@ -1001,12 +1153,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_language3)
        cpl->_release_territory = "fred-jim";
        auto dcp = make_shared<dcp::DCP>(dir);
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp->set_annotation_text("hello");
+       dcp->write_xml();
 
        check_verify_result (
                { dir },
@@ -1050,8 +1198,8 @@ check_picture_size (int width, int height, int frame_rate, bool three_d)
        cpl->set_issue_date ("2012-07-17T04:45:18+00:00");
        cpl->set_main_sound_configuration ("L,C,R,Lfe,-,-");
        cpl->set_main_sound_sample_rate (48000);
-       cpl->set_main_picture_stored_area (dcp::Size(1998, 1080));
-       cpl->set_main_picture_active_area (dcp::Size(1998, 1080));
+       cpl->set_main_picture_stored_area(dcp::Size(width, height));
+       cpl->set_main_picture_active_area(dcp::Size(width, height));
        cpl->set_version_number (1);
 
        auto reel = make_shared<dcp::Reel>();
@@ -1067,12 +1215,8 @@ check_picture_size (int width, int height, int frame_rate, bool three_d)
        cpl->add (reel);
 
        d->add (cpl);
-       d->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       d->set_annotation_text("A Test DCP");
+       d->write_xml();
 
        return dcp::verify ({dcp_path}, &stage, &progress, xsd_test);
 }
@@ -1171,10 +1315,10 @@ BOOST_AUTO_TEST_CASE (verify_picture_size)
 
 static
 void
-add_test_subtitle (shared_ptr<dcp::SubtitleAsset> asset, int start_frame, int end_frame, float v_position = 0, string text = "Hello")
+add_test_subtitle (shared_ptr<dcp::SubtitleAsset> asset, int start_frame, int end_frame, float v_position = 0, dcp::VAlign v_align = dcp::VAlign::CENTER, string text = "Hello")
 {
        asset->add (
-               make_shared<dcp::SubtitleString>(
+               std::make_shared<dcp::SubtitleString>(
                        optional<string>(),
                        false,
                        false,
@@ -1187,13 +1331,15 @@ add_test_subtitle (shared_ptr<dcp::SubtitleAsset> asset, int start_frame, int en
                        0,
                        dcp::HAlign::CENTER,
                        v_position,
-                       dcp::VAlign::CENTER,
+                       v_align,
+                       0,
                        dcp::Direction::LTR,
                        text,
                        dcp::Effect::NONE,
                        dcp::Colour(),
                        dcp::Time(),
-                       dcp::Time()
+                       dcp::Time(),
+                       0
                )
        );
 }
@@ -1220,7 +1366,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_closed_caption_xml_size_in_bytes)
                        {
                                dcp::VerificationNote::Type::BV21_ERROR,
                                dcp::VerificationNote::Code::INVALID_CLOSED_CAPTION_XML_SIZE_IN_BYTES,
-                               string("413262"),
+                               string("419346"),
                                canonical(dir / "subs.mxf")
                        },
                        { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME },
@@ -1260,7 +1406,7 @@ verify_timed_text_asset_too_large (string name)
        check_verify_result (
                { dir },
                {
-                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::INVALID_TIMED_TEXT_SIZE_IN_BYTES, string("121696411"), canonical(dir / "subs.mxf") },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::INVALID_TIMED_TEXT_SIZE_IN_BYTES, string("121695542"), canonical(dir / "subs.mxf") },
                        { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::INVALID_TIMED_TEXT_FONT_SIZE_IN_BYTES, string("121634816"), canonical(dir / "subs.mxf") },
                        { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_SUBTITLE_START_TIME, canonical(dir / "subs.mxf") },
                        { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::INVALID_SUBTITLE_FIRST_TEXT_TIME },
@@ -1303,21 +1449,17 @@ BOOST_AUTO_TEST_CASE (verify_missing_subtitle_language)
                "</SubtitleList>"
                "</SubtitleReel>";
 
-       auto xml_file = dcp::fopen_boost (dir / "subs.xml", "w");
+       dcp::File xml_file(dir / "subs.xml", "w");
        BOOST_REQUIRE (xml_file);
-       fwrite (xml.c_str(), xml.size(), 1, xml_file);
-       fclose (xml_file);
+       xml_file.write(xml.c_str(), xml.size(), 1);
+       xml_file.close();
        auto subs = make_shared<dcp::SMPTESubtitleAsset>(dir / "subs.xml");
        subs->write (dir / "subs.mxf");
 
        auto reel_subs = make_shared<dcp::ReelSMPTESubtitleAsset>(subs, dcp::Fraction(24, 1), 106, 0);
        dcp->cpls()[0]->reels()[0]->add(reel_subs);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                { dir },
@@ -1353,12 +1495,8 @@ BOOST_AUTO_TEST_CASE (verify_mismatched_subtitle_languages)
                cpl->reels()[1]->add(reel_subs);
        }
 
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                { path },
@@ -1395,12 +1533,8 @@ BOOST_AUTO_TEST_CASE (verify_multiple_closed_caption_languages_allowed)
                cpl->reels()[1]->add(reel_ccaps);
        }
 
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                { path },
@@ -1438,21 +1572,17 @@ BOOST_AUTO_TEST_CASE (verify_missing_subtitle_start_time)
                "</SubtitleList>"
                "</SubtitleReel>";
 
-       auto xml_file = dcp::fopen_boost (dir / "subs.xml", "w");
+       dcp::File xml_file(dir / "subs.xml", "w");
        BOOST_REQUIRE (xml_file);
-       fwrite (xml.c_str(), xml.size(), 1, xml_file);
-       fclose (xml_file);
+       xml_file.write(xml.c_str(), xml.size(), 1);
+       xml_file.close();
        auto subs = make_shared<dcp::SMPTESubtitleAsset>(dir / "subs.xml");
        subs->write (dir / "subs.mxf");
 
        auto reel_subs = make_shared<dcp::ReelSMPTESubtitleAsset>(subs, dcp::Fraction(24, 1), 106, 0);
        dcp->cpls()[0]->reels()[0]->add(reel_subs);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                { dir },
@@ -1491,21 +1621,17 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_start_time)
                "</SubtitleList>"
                "</SubtitleReel>";
 
-       auto xml_file = dcp::fopen_boost (dir / "subs.xml", "w");
+       dcp::File xml_file(dir / "subs.xml", "w");
        BOOST_REQUIRE (xml_file);
-       fwrite (xml.c_str(), xml.size(), 1, xml_file);
-       fclose (xml_file);
+       xml_file.write(xml.c_str(), xml.size(), 1);
+       xml_file.close();
        auto subs = make_shared<dcp::SMPTESubtitleAsset>(dir / "subs.xml");
        subs->write (dir / "subs.mxf");
 
        auto reel_subs = make_shared<dcp::ReelSMPTESubtitleAsset>(subs, dcp::Fraction(24, 1), 106, 0);
        dcp->cpls().front()->reels().front()->add(reel_subs);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                { dir },
@@ -1519,16 +1645,18 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_start_time)
 class TestText
 {
 public:
-       TestText (int in_, int out_, float v_position_ = 0, string text_ = "Hello")
+       TestText (int in_, int out_, float v_position_ = 0, dcp::VAlign v_align_ = dcp::VAlign::CENTER, string text_ = "Hello")
                : in(in_)
                , out(out_)
                , v_position(v_position_)
+               , v_align(v_align_)
                , text(text_)
        {}
 
        int in;
        int out;
        float v_position;
+       dcp::VAlign v_align;
        string text;
 };
 
@@ -1541,7 +1669,7 @@ dcp_with_text (path dir, vector<TestText> subs)
        auto asset = make_shared<dcp::SMPTESubtitleAsset>();
        asset->set_start_time (dcp::Time());
        for (auto i: subs) {
-               add_test_subtitle (asset, i.in, i.out, i.v_position, i.text);
+               add_test_subtitle (asset, i.in, i.out, i.v_position, i.v_align, i.text);
        }
        asset->set_language (dcp::LanguageTag("de-DE"));
        asset->write (dir / "subs.mxf");
@@ -1551,6 +1679,43 @@ dcp_with_text (path dir, vector<TestText> subs)
 }
 
 
+template <class T>
+shared_ptr<dcp::CPL>
+dcp_with_text_from_file (path dir, boost::filesystem::path subs_xml)
+{
+       prepare_directory (dir);
+       auto asset = make_shared<dcp::SMPTESubtitleAsset>(subs_xml);
+       asset->set_start_time (dcp::Time());
+       asset->set_language (dcp::LanguageTag("de-DE"));
+
+       auto subs_mxf = dir / "subs.mxf";
+       asset->write (subs_mxf);
+
+       /* The call to write() puts the asset into the DCP correctly but it will have
+        * XML re-written by our parser.  Overwrite the MXF using the given file's verbatim
+        * contents.
+        */
+       ASDCP::TimedText::MXFWriter writer;
+       ASDCP::WriterInfo writer_info;
+       writer_info.LabelSetType = ASDCP::LS_MXF_SMPTE;
+       unsigned int c;
+       Kumu::hex2bin (asset->id().c_str(), writer_info.AssetUUID, Kumu::UUID_Length, &c);
+       DCP_ASSERT (c == Kumu::UUID_Length);
+       ASDCP::TimedText::TimedTextDescriptor descriptor;
+       descriptor.ContainerDuration = asset->intrinsic_duration();
+       Kumu::hex2bin (asset->xml_id()->c_str(), descriptor.AssetID, ASDCP::UUIDlen, &c);
+       DCP_ASSERT (c == Kumu::UUID_Length);
+       ASDCP::Result_t r = writer.OpenWrite (subs_mxf.string().c_str(), writer_info, descriptor, 16384);
+       BOOST_REQUIRE (!ASDCP_FAILURE(r));
+       r = writer.WriteTimedTextResource (dcp::file_to_string(subs_xml));
+       BOOST_REQUIRE (!ASDCP_FAILURE(r));
+       writer.Finalize ();
+
+       auto reel_asset = make_shared<T>(asset, dcp::Fraction(24, 1), asset->intrinsic_duration(), 0);
+       return write_dcp_with_single_asset (dir, reel_asset);
+}
+
+
 BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_first_text_time)
 {
        auto const dir = path("build/test/verify_invalid_subtitle_first_text_time");
@@ -1589,7 +1754,7 @@ BOOST_AUTO_TEST_CASE (verify_valid_subtitle_first_text_time_on_second_reel)
        auto reel_asset1 = make_shared<dcp::ReelSMPTESubtitleAsset>(asset1, dcp::Fraction(24, 1), 5 * 24, 0);
        auto reel1 = make_shared<dcp::Reel>();
        reel1->add (reel_asset1);
-       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 5 * 24, 0);
+       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 5 * 24);
        markers1->set (dcp::Marker::FFOC, dcp::Time(1, 24, 24));
        reel1->add (markers1);
 
@@ -1602,7 +1767,7 @@ BOOST_AUTO_TEST_CASE (verify_valid_subtitle_first_text_time_on_second_reel)
        auto reel_asset2 = make_shared<dcp::ReelSMPTESubtitleAsset>(asset2, dcp::Fraction(24, 1), 4 * 24, 0);
        auto reel2 = make_shared<dcp::Reel>();
        reel2->add (reel_asset2);
-       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 4 * 24, 0);
+       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 4 * 24);
        markers2->set (dcp::Marker::LFOC, dcp::Time(4 * 24 - 1, 24, 24));
        reel2->add (markers2);
 
@@ -1611,13 +1776,8 @@ BOOST_AUTO_TEST_CASE (verify_valid_subtitle_first_text_time_on_second_reel)
        cpl->add (reel2);
        auto dcp = make_shared<dcp::DCP>(dir);
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
-
+       dcp->set_annotation_text("hello");
+       dcp->write_xml();
 
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }});
 }
@@ -1705,10 +1865,10 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_line_count1)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 200, 0.0, "We" },
-                       { 96, 200, 0.1, "have" },
-                       { 96, 200, 0.2, "four" },
-                       { 96, 200, 0.3, "lines" }
+                       { 96, 200, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 200, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 96, 200, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 96, 200, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result (
                {dir},
@@ -1725,9 +1885,9 @@ BOOST_AUTO_TEST_CASE (verify_valid_subtitle_line_count1)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 200, 0.0, "We" },
-                       { 96, 200, 0.1, "have" },
-                       { 96, 200, 0.2, "four" },
+                       { 96, 200, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 200, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 96, 200, 0.2, dcp::VAlign::CENTER, "four" },
                });
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }});
 }
@@ -1739,10 +1899,10 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_line_count2)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "We" },
-                       { 96, 300, 0.1, "have" },
-                       { 150, 180, 0.2, "four" },
-                       { 150, 180, 0.3, "lines" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 300, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 150, 180, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 150, 180, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result (
                {dir},
@@ -1759,10 +1919,10 @@ BOOST_AUTO_TEST_CASE (verify_valid_subtitle_line_count2)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "We" },
-                       { 96, 300, 0.1, "have" },
-                       { 150, 180, 0.2, "four" },
-                       { 190, 250, 0.3, "lines" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 300, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 150, 180, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 190, 250, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }});
 }
@@ -1774,7 +1934,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_line_length1)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "012345678901234567890123456789012345678901234567890123" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "012345678901234567890123456789012345678901234567890123" }
                });
        check_verify_result (
                {dir},
@@ -1791,7 +1951,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_subtitle_line_length2)
        auto cpl = dcp_with_text<dcp::ReelSMPTESubtitleAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "012345678901234567890123456789012345678901234567890123456789012345678901234567890" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "012345678901234567890123456789012345678901234567890123456789012345678901234567890" }
                });
        check_verify_result (
                {dir},
@@ -1808,10 +1968,10 @@ BOOST_AUTO_TEST_CASE (verify_valid_closed_caption_line_count1)
        auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
                dir,
                {
-                       { 96, 200, 0.0, "We" },
-                       { 96, 200, 0.1, "have" },
-                       { 96, 200, 0.2, "four" },
-                       { 96, 200, 0.3, "lines" }
+                       { 96, 200, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 200, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 96, 200, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 96, 200, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result (
                {dir},
@@ -1828,9 +1988,9 @@ BOOST_AUTO_TEST_CASE (verify_valid_closed_caption_line_count2)
        auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
                dir,
                {
-                       { 96, 200, 0.0, "We" },
-                       { 96, 200, 0.1, "have" },
-                       { 96, 200, 0.2, "four" },
+                       { 96, 200, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 200, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 96, 200, 0.2, dcp::VAlign::CENTER, "four" },
                });
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }});
 }
@@ -1842,10 +2002,10 @@ BOOST_AUTO_TEST_CASE (verify_invalid_closed_caption_line_count3)
        auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "We" },
-                       { 96, 300, 0.1, "have" },
-                       { 150, 180, 0.2, "four" },
-                       { 150, 180, 0.3, "lines" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 300, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 150, 180, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 150, 180, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result (
                {dir},
@@ -1862,22 +2022,38 @@ BOOST_AUTO_TEST_CASE (verify_valid_closed_caption_line_count4)
        auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "We" },
-                       { 96, 300, 0.1, "have" },
-                       { 150, 180, 0.2, "four" },
-                       { 190, 250, 0.3, "lines" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "We" },
+                       { 96, 300, 0.1, dcp::VAlign::CENTER, "have" },
+                       { 150, 180, 0.2, dcp::VAlign::CENTER, "four" },
+                       { 190, 250, 0.3, dcp::VAlign::CENTER, "lines" }
                });
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }});
 }
 
 
+BOOST_AUTO_TEST_CASE (verify_valid_closed_caption_line_length)
+{
+       auto const dir = path ("build/test/verify_valid_closed_caption_line_length");
+       auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
+               dir,
+               {
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "01234567890123456789012345678901" }
+               });
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
 BOOST_AUTO_TEST_CASE (verify_invalid_closed_caption_line_length)
 {
        auto const dir = path ("build/test/verify_invalid_closed_caption_line_length");
        auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
                dir,
                {
-                       { 96, 300, 0.0, "0123456789012345678901234567890123" }
+                       { 96, 300, 0.0, dcp::VAlign::CENTER, "0123456789012345678901234567890123" }
                });
        check_verify_result (
                {dir},
@@ -1888,6 +2064,105 @@ BOOST_AUTO_TEST_CASE (verify_invalid_closed_caption_line_length)
 }
 
 
+BOOST_AUTO_TEST_CASE (verify_mismatched_closed_caption_valign1)
+{
+       auto const dir = path ("build/test/verify_mismatched_closed_caption_valign1");
+       auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
+               dir,
+               {
+                       { 96, 300, 0.0, dcp::VAlign::TOP, "This" },
+                       { 96, 300, 0.1, dcp::VAlign::TOP, "is" },
+                       { 96, 300, 0.2, dcp::VAlign::TOP, "fine" },
+               });
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE (verify_mismatched_closed_caption_valign2)
+{
+       auto const dir = path ("build/test/verify_mismatched_closed_caption_valign2");
+       auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
+               dir,
+               {
+                       { 96, 300, 0.0, dcp::VAlign::TOP, "This" },
+                       { 96, 300, 0.1, dcp::VAlign::TOP, "is" },
+                       { 96, 300, 0.2, dcp::VAlign::CENTER, "not fine" },
+               });
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CLOSED_CAPTION_VALIGN },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE (verify_incorrect_closed_caption_ordering1)
+{
+       auto const dir = path ("build/test/verify_invalid_incorrect_closed_caption_ordering1");
+       auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
+               dir,
+               {
+                       { 96, 300, 0.0, dcp::VAlign::TOP, "This" },
+                       { 96, 300, 0.1, dcp::VAlign::TOP, "is" },
+                       { 96, 300, 0.2, dcp::VAlign::TOP, "fine" },
+               });
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE (verify_incorrect_closed_caption_ordering2)
+{
+       auto const dir = path ("build/test/verify_invalid_incorrect_closed_caption_ordering2");
+       auto cpl = dcp_with_text<dcp::ReelSMPTEClosedCaptionAsset> (
+               dir,
+               {
+                       { 96, 300, 0.2, dcp::VAlign::BOTTOM, "This" },
+                       { 96, 300, 0.1, dcp::VAlign::BOTTOM, "is" },
+                       { 96, 300, 0.0, dcp::VAlign::BOTTOM, "also fine" },
+               });
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE (verify_incorrect_closed_caption_ordering3)
+{
+       auto const dir = path ("build/test/verify_incorrect_closed_caption_ordering3");
+       auto cpl = dcp_with_text_from_file<dcp::ReelSMPTEClosedCaptionAsset> (dir, "test/data/verify_incorrect_closed_caption_ordering3.xml");
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INCORRECT_CLOSED_CAPTION_ORDERING },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE (verify_incorrect_closed_caption_ordering4)
+{
+       auto const dir = path ("build/test/verify_incorrect_closed_caption_ordering4");
+       auto cpl = dcp_with_text_from_file<dcp::ReelSMPTEClosedCaptionAsset> (dir, "test/data/verify_incorrect_closed_caption_ordering4.xml");
+       check_verify_result (
+               {dir},
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA, cpl->id(), cpl->file().get() }
+               });
+}
+
+
+
 BOOST_AUTO_TEST_CASE (verify_invalid_sound_frame_rate)
 {
        path const dir("build/test/verify_invalid_sound_frame_rate");
@@ -1897,7 +2172,7 @@ BOOST_AUTO_TEST_CASE (verify_invalid_sound_frame_rate)
        auto reel_picture = make_shared<dcp::ReelMonoPictureAsset>(picture, 0);
        auto reel = make_shared<dcp::Reel>();
        reel->add (reel_picture);
-       auto sound = simple_sound (dir, "foo", dcp::MXFMetadata(), "de-DE", 24, 96000);
+       auto sound = simple_sound (dir, "foo", dcp::MXFMetadata(), "de-DE", 24, 96000, boost::none);
        auto reel_sound = make_shared<dcp::ReelSoundAsset>(sound, 0);
        reel->add (reel_sound);
        reel->add (simple_markers());
@@ -1905,12 +2180,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_sound_frame_rate)
        cpl->add (reel);
        auto dcp = make_shared<dcp::DCP>(dir);
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "hello"
-               );
+       dcp->set_annotation_text("hello");
+       dcp->write_xml();
 
        check_verify_result (
                {dir},
@@ -1925,12 +2196,8 @@ BOOST_AUTO_TEST_CASE (verify_missing_cpl_annotation_text)
 {
        path const dir("build/test/verify_missing_cpl_annotation_text");
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        BOOST_REQUIRE_EQUAL (dcp->cpls().size(), 1U);
 
@@ -1955,12 +2222,8 @@ BOOST_AUTO_TEST_CASE (verify_mismatched_cpl_annotation_text)
 {
        path const dir("build/test/verify_mismatched_cpl_annotation_text");
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        BOOST_REQUIRE_EQUAL (dcp->cpls().size(), 1U);
        auto const cpl = dcp->cpls()[0];
@@ -1999,12 +2262,8 @@ BOOST_AUTO_TEST_CASE (verify_mismatched_asset_duration)
        cpl->add (reel);
 
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                {dir},
@@ -2042,7 +2301,7 @@ verify_subtitles_must_be_in_all_reels_check (path dir, bool add_to_reel1, bool a
                reel1->add (make_shared<dcp::ReelSMPTESubtitleAsset>(subs, dcp::Fraction(24, 1), reel_length, 0));
        }
 
-       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length, 0);
+       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length);
        markers1->set (dcp::Marker::FFOC, dcp::Time(1, 24, 24));
        reel1->add (markers1);
 
@@ -2057,19 +2316,15 @@ verify_subtitles_must_be_in_all_reels_check (path dir, bool add_to_reel1, bool a
                reel2->add (make_shared<dcp::ReelSMPTESubtitleAsset>(subs, dcp::Fraction(24, 1), reel_length, 0));
        }
 
-       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length, 0);
+       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length);
        markers2->set (dcp::Marker::LFOC, dcp::Time(reel_length - 1, 24, 24));
        reel2->add (markers2);
 
        cpl->add (reel2);
 
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        return cpl;
 }
@@ -2128,7 +2383,7 @@ verify_closed_captions_must_be_in_all_reels_check (path dir, int caps_in_reel1,
                reel1->add (make_shared<dcp::ReelSMPTEClosedCaptionAsset>(subs, dcp::Fraction(24, 1), reel_length, 0));
        }
 
-       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length, 0);
+       auto markers1 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length);
        markers1->set (dcp::Marker::FFOC, dcp::Time(1, 24, 24));
        reel1->add (markers1);
 
@@ -2143,19 +2398,15 @@ verify_closed_captions_must_be_in_all_reels_check (path dir, int caps_in_reel1,
                reel2->add (make_shared<dcp::ReelSMPTEClosedCaptionAsset>(subs, dcp::Fraction(24, 1), reel_length, 0));
        }
 
-       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length, 0);
+       auto markers2 = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), reel_length);
        markers2->set (dcp::Marker::LFOC, dcp::Time(reel_length - 1, 24, 24));
        reel2->add (markers2);
 
        cpl->add (reel2);
 
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        return cpl;
 }
@@ -2218,12 +2469,8 @@ verify_text_entry_point_check (path dir, dcp::VerificationNote::Code code, boost
        cpl->add (reel);
 
        dcp->add (cpl);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result (
                {dir},
@@ -2276,12 +2523,8 @@ BOOST_AUTO_TEST_CASE (verify_missing_hash)
 
        path const dir("build/test/verify_missing_hash");
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        BOOST_REQUIRE_EQUAL (dcp->cpls().size(), 1U);
        auto const cpl = dcp->cpls()[0];
@@ -2314,17 +2557,13 @@ verify_markers_test (
 {
        auto dcp = make_simple (dir);
        dcp->cpls()[0]->set_content_kind (dcp::ContentKind::FEATURE);
-       auto markers_asset = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 24, 0);
+       auto markers_asset = make_shared<dcp::ReelMarkersAsset>(dcp::Fraction(24, 1), 24);
        for (auto const& i: markers) {
                markers_asset->set (i.first, i.second);
        }
        dcp->cpls()[0]->reels()[0]->add(markers_asset);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result ({dir}, test_notes);
 }
@@ -2420,12 +2659,8 @@ BOOST_AUTO_TEST_CASE (verify_missing_cpl_metadata_version_number)
        auto dcp = make_simple (dir);
        auto cpl = dcp->cpls()[0];
        cpl->unset_version_number();
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        check_verify_result ({dir}, {{ dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISSING_CPL_METADATA_VERSION_NUMBER, cpl->id(), cpl->file().get() }});
 }
@@ -2435,13 +2670,10 @@ BOOST_AUTO_TEST_CASE (verify_missing_extension_metadata1)
 {
        path dir = "build/test/verify_missing_extension_metadata1";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
+       BOOST_REQUIRE_EQUAL (dcp->cpls().size(), 1U);
        auto cpl = dcp->cpls()[0];
 
        {
@@ -2462,12 +2694,8 @@ BOOST_AUTO_TEST_CASE (verify_missing_extension_metadata2)
 {
        path dir = "build/test/verify_missing_extension_metadata2";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto cpl = dcp->cpls()[0];
 
@@ -2489,12 +2717,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata3)
 {
        path dir = "build/test/verify_invalid_xml_cpl_extension_metadata3";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto const cpl = dcp->cpls()[0];
 
@@ -2507,8 +2731,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata3)
        check_verify_result (
                {dir},
                {
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:NameX'"), cpl->file().get(), 75 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:NameX' is not allowed for content model '(Name,PropertyList?,)'"), cpl->file().get(), 82 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:NameX'"), cpl->file().get(), 70 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:NameX' is not allowed for content model '(Name,PropertyList?,)'"), cpl->file().get(), 77 },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl->id(), cpl->file().get() },
                });
 }
@@ -2518,12 +2742,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_extension_metadata1)
 {
        path dir = "build/test/verify_invalid_extension_metadata1";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto cpl = dcp->cpls()[0];
 
@@ -2545,12 +2765,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_extension_metadata2)
 {
        path dir = "build/test/verify_invalid_extension_metadata2";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto cpl = dcp->cpls()[0];
 
@@ -2572,12 +2788,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata6)
 {
        path dir = "build/test/verify_invalid_xml_cpl_extension_metadata6";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto const cpl = dcp->cpls()[0];
 
@@ -2590,8 +2802,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata6)
        check_verify_result (
                {dir},
                {
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:ValueX'"), cpl->file().get(), 79 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:ValueX' is not allowed for content model '(Name,Value)'"), cpl->file().get(), 80 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:ValueX'"), cpl->file().get(), 74 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:ValueX' is not allowed for content model '(Name,Value)'"), cpl->file().get(), 75 },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl->id(), cpl->file().get() },
                });
 }
@@ -2601,12 +2813,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata7)
 {
        path dir = "build/test/verify_invalid_xml_cpl_extension_metadata7";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto const cpl = dcp->cpls()[0];
 
@@ -2628,12 +2836,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata8)
 {
        path dir = "build/test/verify_invalid_xml_cpl_extension_metadata8";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto const cpl = dcp->cpls()[0];
 
@@ -2646,8 +2850,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata8)
        check_verify_result (
                {dir},
                {
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:PropertyX'"), cpl->file().get(), 77 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:PropertyX' is not allowed for content model '(Property+)'"), cpl->file().get(), 81 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:PropertyX'"), cpl->file().get(), 72 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:PropertyX' is not allowed for content model '(Property+)'"), cpl->file().get(), 76 },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl->id(), cpl->file().get() },
                });
 }
@@ -2657,12 +2861,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata9)
 {
        path dir = "build/test/verify_invalid_xml_cpl_extension_metadata9";
        auto dcp = make_simple (dir);
-       dcp->write_xml (
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::String::compose("libdcp %1", dcp::version),
-               dcp::LocalTime().as_string(),
-               "A Test DCP"
-               );
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
 
        auto const cpl = dcp->cpls()[0];
 
@@ -2675,8 +2875,8 @@ BOOST_AUTO_TEST_CASE (verify_invalid_xml_cpl_extension_metadata9)
        check_verify_result (
                {dir},
                {
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:PropertyListX'"), cpl->file().get(), 76 },
-                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:PropertyListX' is not allowed for content model '(Name,PropertyList?,)'"), cpl->file().get(), 82 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("no declaration found for element 'meta:PropertyListX'"), cpl->file().get(), 71 },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_XML, string("element 'meta:PropertyListX' is not allowed for content model '(Name,PropertyList?,)'"), cpl->file().get(), 77 },
                        { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl->id(), cpl->file().get() },
                });
 }
@@ -2813,7 +3013,11 @@ BOOST_AUTO_TEST_CASE (verify_partially_encrypted)
 
        d.add (cpl);
 
-       d.write_xml ("OpenDCP 0.0.25", "OpenDCP 0.0.25", "2012-07-17T04:45:18+00:00", "A Test DCP", signer);
+       d.set_issuer("OpenDCP 0.0.25");
+       d.set_creator("OpenDCP 0.0.25");
+       d.set_issue_date("2012-07-17T04:45:18+00:00");
+       d.set_annotation_text("A Test DCP");
+       d.write_xml(signer);
 
        check_verify_result (
                {dir},
@@ -2882,7 +3086,7 @@ BOOST_AUTO_TEST_CASE (verify_mismatched_subtitle_resource_id)
        auto xml_id = dcp::make_uuid ();
        ASDCP::TimedText::MXFWriter writer;
        auto subs_mxf = dir / "subs.mxf";
-       auto r = writer.OpenWrite(subs_mxf.c_str(), writer_info, descriptor, 4096);
+       auto r = writer.OpenWrite(subs_mxf.string().c_str(), writer_info, descriptor, 4096);
        BOOST_REQUIRE (ASDCP_SUCCESS(r));
        writer.WriteTimedTextResource (dcp::String::compose(
                "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
@@ -2946,7 +3150,7 @@ BOOST_AUTO_TEST_CASE (verify_incorrect_timed_text_id)
        auto xml_id = resource_id;
        ASDCP::TimedText::MXFWriter writer;
        auto subs_mxf = dir / "subs.mxf";
-       auto r = writer.OpenWrite(subs_mxf.c_str(), writer_info, descriptor, 4096);
+       auto r = writer.OpenWrite(subs_mxf.string().c_str(), writer_info, descriptor, 4096);
        BOOST_REQUIRE (ASDCP_SUCCESS(r));
        writer.WriteTimedTextResource (dcp::String::compose(
                "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
@@ -3006,3 +3210,192 @@ BOOST_AUTO_TEST_CASE (verify_threed_marked_as_twod)
 
 }
 
+
+BOOST_AUTO_TEST_CASE (verify_unexpected_things_in_main_markers)
+{
+       path dir = "build/test/verify_unexpected_things_in_main_markers";
+       prepare_directory (dir);
+       auto dcp = make_simple (dir, 1, 24);
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
+
+       {
+               Editor e (find_cpl(dir));
+               e.insert(
+                       "          <IntrinsicDuration>24</IntrinsicDuration>",
+                       "<EntryPoint>0</EntryPoint><Duration>24</Duration>"
+                       );
+       }
+
+       dcp::CPL cpl (find_cpl(dir));
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl.id(), canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::UNEXPECTED_ENTRY_POINT },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::UNEXPECTED_DURATION },
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_invalid_content_kind)
+{
+       path dir = "build/test/verify_invalid_content_kind";
+       prepare_directory (dir);
+       auto dcp = make_simple (dir, 1, 24);
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
+
+       {
+               Editor e(find_cpl(dir));
+               e.replace("trailer", "trip");
+       }
+
+       dcp::CPL cpl (find_cpl(dir));
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl.id(), canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_CONTENT_KIND, string("trip") }
+               });
+
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_valid_content_kind)
+{
+       path dir = "build/test/verify_valid_content_kind";
+       prepare_directory (dir);
+       auto dcp = make_simple (dir, 1, 24);
+       dcp->set_annotation_text("A Test DCP");
+       dcp->write_xml();
+
+       {
+               Editor e(find_cpl(dir));
+               e.replace("<ContentKind>trailer</ContentKind>", "<ContentKind scope=\"http://bobs.contents/\">trip</ContentKind>");
+       }
+
+       dcp::CPL cpl (find_cpl(dir));
+
+       check_verify_result (
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl.id(), canonical(find_cpl(dir)) },
+               });
+
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_invalid_main_picture_active_area_1)
+{
+       path dir = "build/test/verify_invalid_main_picture_active_area_1";
+       prepare_directory(dir);
+       auto dcp = make_simple(dir, 1, 24);
+       dcp->write_xml();
+
+       auto constexpr area = "<meta:MainPictureActiveArea>";
+
+       {
+               Editor e(find_cpl(dir));
+               e.delete_lines_after(area, 2);
+               e.insert(area, "<meta:Height>4080</meta:Height>");
+               e.insert(area, "<meta:Width>1997</meta:Width>");
+       }
+
+       dcp::PKL pkl(find_pkl(dir));
+       dcp::CPL cpl(find_cpl(dir));
+
+       check_verify_result(
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl.id(), canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISMATCHED_PKL_ANNOTATION_TEXT_WITH_CPL, pkl.id(), canonical(find_pkl(dir)), },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_MAIN_PICTURE_ACTIVE_AREA, "width 1997 is not a multiple of 2", canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_MAIN_PICTURE_ACTIVE_AREA, "height 4080 is bigger than the asset height 1080", canonical(find_cpl(dir)) },
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_invalid_main_picture_active_area_2)
+{
+       path dir = "build/test/verify_invalid_main_picture_active_area_2";
+       prepare_directory(dir);
+       auto dcp = make_simple(dir, 1, 24);
+       dcp->write_xml();
+
+       auto constexpr area = "<meta:MainPictureActiveArea>";
+
+       {
+               Editor e(find_cpl(dir));
+               e.delete_lines_after(area, 2);
+               e.insert(area, "<meta:Height>5125</meta:Height>");
+               e.insert(area, "<meta:Width>9900</meta:Width>");
+       }
+
+       dcp::PKL pkl(find_pkl(dir));
+       dcp::CPL cpl(find_cpl(dir));
+
+       check_verify_result(
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::MISMATCHED_CPL_HASHES, cpl.id(), canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISMATCHED_PKL_ANNOTATION_TEXT_WITH_CPL, pkl.id(), canonical(find_pkl(dir)), },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_MAIN_PICTURE_ACTIVE_AREA, "height 5125 is not a multiple of 2", canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_MAIN_PICTURE_ACTIVE_AREA, "width 9900 is bigger than the asset width 1998", canonical(find_cpl(dir)) },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::INVALID_MAIN_PICTURE_ACTIVE_AREA, "height 5125 is bigger than the asset height 1080", canonical(find_cpl(dir)) },
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_duplicate_pkl_asset_ids)
+{
+       RNGFixer rg;
+
+       path dir = "build/test/verify_duplicate_pkl_asset_ids";
+       prepare_directory(dir);
+       auto dcp = make_simple(dir, 1, 24);
+       dcp->write_xml();
+
+       {
+               Editor e(find_pkl(dir));
+               e.replace("urn:uuid:5407b210-4441-4e97-8b16-8bdc7c12da54", "urn:uuid:6affb8ee-0020-4dff-a53c-17652f6358ab");
+       }
+
+       dcp::PKL pkl(find_pkl(dir));
+
+       check_verify_result(
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::DUPLICATE_ASSET_ID_IN_PKL, pkl.id(), canonical(find_pkl(dir)) },
+               });
+}
+
+
+BOOST_AUTO_TEST_CASE(verify_duplicate_assetmap_asset_ids)
+{
+       RNGFixer rg;
+
+       path dir = "build/test/verify_duplicate_assetmap_asset_ids";
+       prepare_directory(dir);
+       auto dcp = make_simple(dir, 1, 24);
+       dcp->write_xml();
+
+       {
+               Editor e(find_asset_map(dir));
+               e.replace("urn:uuid:5407b210-4441-4e97-8b16-8bdc7c12da54", "urn:uuid:97f0f352-5b77-48ee-a558-9df37717f4fa");
+       }
+
+       dcp::PKL pkl(find_pkl(dir));
+       dcp::AssetMap asset_map(find_asset_map(dir));
+
+       check_verify_result(
+               { dir },
+               {
+                       { dcp::VerificationNote::Type::BV21_ERROR, dcp::VerificationNote::Code::MISMATCHED_PKL_ANNOTATION_TEXT_WITH_CPL, pkl.id(), canonical(find_pkl(dir)), },
+                       { dcp::VerificationNote::Type::ERROR, dcp::VerificationNote::Code::DUPLICATE_ASSET_ID_IN_ASSETMAP, asset_map.id(), canonical(find_asset_map(dir)) },
+                       { dcp::VerificationNote::Type::WARNING, dcp::VerificationNote::Code::EXTERNAL_ASSET, string("5407b210-4441-4e97-8b16-8bdc7c12da54") },
+               });
+}
+