Add function for changing charset with unit test.

- Creates a function to change the charset
- Adds a unit test to test if the sequences have invalid length when converting into tokens
- When putting the 'specific charset' token, set a flag to invalidate all lengths when writing the dicom
- In the token generation code, check and pass this token, marking all lengths as UNDEFINED

object/src/lib.rs

@@ -429,7 +429,7 @@ where
         let cs = SpecificCharacterSet::Default;
         let mut dset_writer = DataSetWriter::with_ts_cs(to, ts, cs).context(CreatePrinterSnafu)?;
 
-        // write object
+        // We use the default options, because only the inner object knows if something needs to change
         dset_writer
             .write_sequence((&self.obj).into_tokens())
             .context(PrintDataSetSnafu)?;
@@ -462,7 +462,7 @@ where
         let cs = SpecificCharacterSet::Default;
         let mut dset_writer = DataSetWriter::with_ts_cs(to, ts, cs).context(CreatePrinterSnafu)?;
 
-        // write object
+        // We use the default options, because only the inner object knows if something needs to change
         dset_writer
             .write_sequence((&self.obj).into_tokens())
             .context(PrintDataSetSnafu)?;