Remove a test directory before running.
[libdcp.git] / test / verify_test.cc
index 8126c3180e6f181a0dee22531892a724caaec48f..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);
@@ -143,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;
 }
@@ -174,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) {
@@ -195,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) {
@@ -216,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;
 };
@@ -248,10 +304,26 @@ check_verify_result (vector<path> dir, vector<dcp::VerificationNote> test_notes)
        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);
@@ -334,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);
 }
 
 
@@ -386,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 'xLq7ot/GobgrqUYdlbR8FCD5APqs=' 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 'xznqYbl53W9ZQtrU2E1FQ6dwdM2M=' 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 },
                });
 }
 
@@ -404,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") }
+               });
 }
 
 
@@ -486,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 }
                        );
 }
@@ -884,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_");
+}
+
+
+path
+find_pkl(path dir)
+{
+       return find_prefix(dir, "pkl_");
+}
+
 
-       BOOST_REQUIRE (false);
-       return {};
+path
+find_asset_map(path dir)
+{
+       return find_prefix(dir, "ASSETMAP");
 }
 
 
@@ -928,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));
@@ -979,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));
@@ -1072,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 },
@@ -1121,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>();
@@ -1138,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);
 }
@@ -1245,7 +1318,7 @@ void
 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,
@@ -1259,6 +1332,7 @@ add_test_subtitle (shared_ptr<dcp::SubtitleAsset> asset, int start_frame, int en
                        dcp::HAlign::CENTER,
                        v_position,
                        v_align,
+                       0,
                        dcp::Direction::LTR,
                        text,
                        dcp::Effect::NONE,
@@ -1375,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 },
@@ -1425,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 },
@@ -1467,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 },
@@ -1510,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 },
@@ -1563,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 },
@@ -1722,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() }});
 }
@@ -2131,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},
@@ -2151,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);
 
@@ -2181,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];
@@ -2225,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},
@@ -2290,12 +2323,8 @@ verify_subtitles_must_be_in_all_reels_check (path dir, bool add_to_reel1, bool a
        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;
 }
@@ -2376,12 +2405,8 @@ verify_closed_captions_must_be_in_all_reels_check (path dir, int caps_in_reel1,
        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;
 }
@@ -2444,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},
@@ -2502,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];
@@ -2545,12 +2562,8 @@ verify_markers_test (
                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);
 }
@@ -2646,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() }});
 }
@@ -2661,12 +2670,8 @@ 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];
@@ -2689,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];
 
@@ -2716,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];
 
@@ -2745,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];
 
@@ -2772,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];
 
@@ -2799,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];
 
@@ -2828,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];
 
@@ -2855,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];
 
@@ -2884,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];
 
@@ -3040,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},
@@ -3109,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\"?>"
@@ -3173,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\"?>"
@@ -3233,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") },
+               });
+}
+